Changeset 962 for branches/cname-collision/t/DNSTest.pm

Timestamp:

01/07/26 13:22:08 (8 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

File down a rough edge by way of proper new() boilerplate
File down another rough edge by initializing a module debug variable
Recordkeeping merge from /trunk
See #88

Location:

branches/cname-collision

Files:

• . (modified) (1 prop)
• t/DNSTest.pm (modified) (2 diffs)

branches/cname-collision/t/DNSTest.pm

@@ -39 +39 @@
 
 sub new {
+  my $this = shift;
+  my $class = ref($this) || $this;
+  my %args = @_;
+
   $dnsdb = new DNSDB(
         dbhost => 'localhost',
@@ -47 +51 @@
   ok( defined $dnsdb );
   ok( $dnsdb->isa('DNSDB') );
+
+  $debug = 1 if $args{debug};
 
   ## Prepare the DB