Changeset 961

Timestamp:

12/31/25 11:31:52 (4 hours ago)

Author:

Kris Deugau

Message:

/trunk

Polish up a little boilerplate in t/DNSTest.pm for easier debugging of tests
See #88

File:

• trunk/t/DNSTest.pm (modified) (2 diffs)

trunk/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