Rename Net::LDNS to Zonemaster::LDNS

13 files changed, 98 insertions, 98 deletions

diff --git a/t/axfr.t b/t/axfr.t
index 3874655..2038571 100644
--- a/t/axfr.t
+++ b/t/axfr.t
@@ -1,13 +1,13 @@
 use Test::More;
 use Test::Fatal;
 
-BEGIN { use_ok( 'Net::LDNS' ) }
+BEGIN { use_ok( 'Zonemaster::LDNS' ) }
 
 SKIP: {
     skip 'no network', 3 if $ENV{TEST_NO_NETWORK};
 
-    my $res = Net::LDNS->new( '46.21.106.227' );
-    my $res2 = Net::LDNS->new( '192.36.144.107' );
+    my $res = Zonemaster::LDNS->new( '46.21.106.227' );
+    my $res2 = Zonemaster::LDNS->new( '192.36.144.107' );
 
     my $counter = 0;
     my $return = $res->axfr( 'cyberpomo.com',
diff --git a/t/dnssec.t b/t/dnssec.t
index 37f16ee..132021b 100644
--- a/t/dnssec.t
+++ b/t/dnssec.t
@@ -1,15 +1,15 @@
 use Test::More;
 
-BEGIN { use_ok( 'Net::LDNS' ); }
+BEGIN { use_ok( 'Zonemaster::LDNS' ); }
 
-my $key1 = Net::LDNS::RR->new(
+my $key1 = Zonemaster::LDNS::RR->new(
 "iis.se.	2395	IN	DNSKEY	257 3 5 AwEAAcq5u+qe5VibnyvSnGU20panweAk2QxflGVuVQhzQABQV4SIdAQs +LNVHF61lcxe504jhPmjeQ656X6t+dHpRz1DdPO/ukcIITjIRoJHqS+X XyL6gUluZoDU+K6vpxkGJx5m5n4boRTKCTUAR/9rw2+IQRRTtb6nBwsC 3pmf9IlJQjQMb1cQTb0UO7fYgXDZIYVul2LwGpKRrMJ6Ul1nepkSxTMw Q4H9iKE9FhqPeIpzU9dnXGtJ+ZCx9tWSZ9VsSLWBJtUwoE6ZfIoF1ioq qxfGl9JV1/6GkDxo3pMN2edhkp8aqoo/R+mrJYi0vE8jbXvhZ12151Dy wuSxbGjAlxk="
 );
-my $key2 = Net::LDNS::RR->new(
+my $key2 = Zonemaster::LDNS::RR->new(
 "iis.se.	1591	IN	DNSKEY	256 3 5 BQEAAAABuWpCewwMRD7yPzy6TGsymMAc82IHVGB+vjKVIAYKbPG7QxuLEtEzUxDJo09gLN2/N0OF+NnTkmDMj8KA+eIgtqmMuq5kdDVc+eSNLJZ0 am0o27UEkXmW20iV0d6B/KW1X1nufzBSaacUzkBKyDfK4cN3aVsYIDXT H7Jw1agEzrM="
 );
-my $soa = Net::LDNS::RR->new( "iis.se.	3600	IN	SOA	ns.nic.se. hostmaster.iis.se. 1384853101 10800 3600 1814400 14400" );
-my $sig = Net::LDNS::RR->new(
+my $soa = Zonemaster::LDNS::RR->new( "iis.se.	3600	IN	SOA	ns.nic.se. hostmaster.iis.se. 1384853101 10800 3600 1814400 14400" );
+my $sig = Zonemaster::LDNS::RR->new(
 "iis.se.	3600	IN	RRSIG	SOA 5 2 3600 20131129082501 20131119082501 59213 iis.se. ShhhfRT82jfA/J1AAqiie/4r7JuiYOpK6dIwugOtlf0/UpVsOYEIukpe Bq9i7fsa0GNWz/o9gqF8DnsCHzgxZnAngTrJpZAlsrC/FP/6v8WfnFsP LDw9g6Ow8Z6TL9JmZr22YPp27Rwujdb5AnzdurEvQxIAqW66CCCy2pc9 //s="
 );
 
@@ -35,38 +35,38 @@ ok( $res, 'Verified OK in the past.' );
 is( $msg, 'All OK', 'Expected verification message' );
 
 my $ds1 = $key1->ds( 'sha1' );
-isa_ok( $ds1, 'Net::LDNS::RR::DS', 'sha1' );
+isa_ok( $ds1, 'Zonemaster::LDNS::RR::DS', 'sha1' );
 ok( $ds1->verify( $key1 ) ) if $ds1;
 
 my $ds2 = $key1->ds( 'sha256' );
-isa_ok( $ds2, 'Net::LDNS::RR::DS', 'sha256' );
+isa_ok( $ds2, 'Zonemaster::LDNS::RR::DS', 'sha256' );
 ok( $ds2->verify( $key1 ) ) if $ds2;
 
 my $ds3 = $key1->ds( 'sha384' );
-isa_ok( $ds3, 'Net::LDNS::RR::DS', 'sha384' );
+isa_ok( $ds3, 'Zonemaster::LDNS::RR::DS', 'sha384' );
 ok( $ds3->verify( $key1 ) ) if $ds3;
 
 my $ds4 = $key1->ds( 'gost' );
 if ( $ds4 ) {    # We may not have GOST available.
-    isa_ok( $ds4, 'Net::LDNS::RR::DS', 'gost' );
+    isa_ok( $ds4, 'Zonemaster::LDNS::RR::DS', 'gost' );
     ok( $ds4->verify( $key1 ) ) if $ds4;
 }
 
 is($key1->keysize, 2048, 'Key is 2048 bits long');
 is($key2->keysize, 1024, 'Key is 1024 bits long');
 
-my $nsec = Net::LDNS::RR->new('xx.se.			7200	IN	NSEC	xx0r.se. NS RRSIG NSEC');
-isa_ok($nsec, 'Net::LDNS::RR::NSEC');
+my $nsec = Zonemaster::LDNS::RR->new('xx.se.			7200	IN	NSEC	xx0r.se. NS RRSIG NSEC');
+isa_ok($nsec, 'Zonemaster::LDNS::RR::NSEC');
 ok($nsec->covers('xx-example.se'), 'Covers xx-example.se');
 
-my $nsec3 = Net::LDNS::RR->new('NR2E513KM693MBTNVHH56ENF54F886T0.com. 86400 IN NSEC3 1 1 0 - NR2FUHQVR56LH70L6F971J3L6N1RH2TU NS DS RRSIG');
-isa_ok($nsec3, 'Net::LDNS::RR::NSEC3');
+my $nsec3 = Zonemaster::LDNS::RR->new('NR2E513KM693MBTNVHH56ENF54F886T0.com. 86400 IN NSEC3 1 1 0 - NR2FUHQVR56LH70L6F971J3L6N1RH2TU NS DS RRSIG');
+isa_ok($nsec3, 'Zonemaster::LDNS::RR::NSEC3');
 ok($nsec3->covers('xx-example.com'), 'Covers xx-example.com');
 
 SKIP: {
     skip 'no network', 3 if $ENV{TEST_NO_NETWORK};
 
-    $res = Net::LDNS->new( '212.247.7.228' );
+    $res = Zonemaster::LDNS->new( '212.247.7.228' );
     $res->dnssec( 1 );
     my $p1 = eval { $res->query('www.iis.se', 'A') };
 
diff --git a/t/idn.t b/t/idn.t
index d0b855d..e29abe7 100644
--- a/t/idn.t
+++ b/t/idn.t
@@ -4,7 +4,7 @@ use Encode;
 use Devel::Peek;
 use utf8;
 
-BEGIN { use_ok( "Net::LDNS" => qw[:all] ) }
+BEGIN { use_ok( "Zonemaster::LDNS" => qw[:all] ) }
 
 no warnings 'uninitialized';
 if (exception {to_idn("whatever")} =~ /libidn not installed/) {
diff --git a/t/load_zonefile.t b/t/load_zonefile.t
index 1e48879..9e855fa 100644
--- a/t/load_zonefile.t
+++ b/t/load_zonefile.t
@@ -4,7 +4,7 @@ use Test::Fatal;
 use strict;
 use warnings;
 
-BEGIN { use_ok("Net::LDNS" => qw(load_zonefile))}
+BEGIN { use_ok("Zonemaster::LDNS" => qw(load_zonefile))}
 
 my @rrs = load_zonefile("t/example.org");
 is(scalar(@rrs), 16, 'All records loaded');
diff --git a/t/netldns.t b/t/netldns.t
index 7cd5b8f..53c9239 100644
--- a/t/netldns.t
+++ b/t/netldns.t
@@ -2,26 +2,26 @@ use Test::More;
 use Devel::Peek;
 use version;
 
-BEGIN { use_ok( 'Net::LDNS' ) }
+BEGIN { use_ok( 'Zonemaster::LDNS' ) }
 
-my $lib_v = version->parse(Net::LDNS::lib_version());
+my $lib_v = version->parse(Zonemaster::LDNS::lib_version());
 ok( $lib_v >= v1.6.16, 'ldns version at least 1.6.16' );
 
 SKIP: {
     skip 'no network', 59 if $ENV{TEST_NO_NETWORK};
 
-    my $s = Net::LDNS->new( '8.8.8.8' );
-    isa_ok( $s, 'Net::LDNS' );
+    my $s = Zonemaster::LDNS->new( '8.8.8.8' );
+    isa_ok( $s, 'Zonemaster::LDNS' );
     my $p = $s->query( 'nic.se', 'MX' );
-    isa_ok( $p, 'Net::LDNS::Packet' );
+    isa_ok( $p, 'Zonemaster::LDNS::Packet' );
     is( $p->rcode, 'NOERROR', 'expected rcode' );
 
     my $p2 = $s->query( 'iis.se', 'NS', 'IN' );
-    isa_ok( $p2, 'Net::LDNS::Packet' );
+    isa_ok( $p2, 'Zonemaster::LDNS::Packet' );
     is( $p2->rcode, 'NOERROR' );
     is( $p2->opcode, 'QUERY', 'expected opcode' );
-    my $pround = Net::LDNS::Packet->new_from_wireformat( $p2->wireformat );
-    isa_ok( $pround, 'Net::LDNS::Packet' );
+    my $pround = Zonemaster::LDNS::Packet->new_from_wireformat( $p2->wireformat );
+    isa_ok( $pround, 'Zonemaster::LDNS::Packet' );
     is( $pround->opcode, $p2->opcode, 'roundtrip opcode OK' );
     is( $pround->rcode,  $p2->rcode,  'roundtrip rcode OK' );
 
@@ -59,7 +59,7 @@ SKIP: {
     is( scalar( @answer ), 3, 'expected number of NS records in answer' );
     my %known_ns = map { $_ => 1 } qw[ns.nic.se. i.ns.se. ns3.nic.se.];
     foreach my $rr ( @answer ) {
-        isa_ok( $rr, 'Net::LDNS::RR::NS' );
+        isa_ok( $rr, 'Zonemaster::LDNS::RR::NS' );
         is( lc($rr->owner), 'iis.se.', 'expected owner name' );
         ok( $rr->ttl > 0, 'positive TTL (' . $rr->ttl . ')' );
         is( $rr->type,  'NS', 'type is NS' );
@@ -73,7 +73,7 @@ SKIP: {
         ok( $known_mx{ lc($rr->exchange) }, 'known MX exchange (' . $rr->exchange . ')' );
     }
 
-    my $lroot = Net::LDNS->new( '199.7.83.42' );
+    my $lroot = Zonemaster::LDNS->new( '199.7.83.42' );
     my $se = $lroot->query( 'se', 'NS' );
 
     is( scalar( $se->question ),   1,  'one question' );
@@ -83,10 +83,10 @@ SKIP: {
     cmp_ok( $add, '<=', 20, 'at most 20 additional' );
     cmp_ok( $add, '>=', 8, 'at least 8 additional' );
 
-    my $rr = Net::LDNS::RR->new_from_string(
+    my $rr = Zonemaster::LDNS::RR->new_from_string(
         'se. 172800	IN	SOA	catcher-in-the-rye.nic.se. registry-default.nic.se. 2013111305 1800 1800 864000 7200' );
     my $rr2 =
-      Net::LDNS::RR->new( 'se.			172800	IN	TXT	"SE zone update: 2013-11-13 15:08:28 +0000 (EPOCH 1384355308) (auto)"' );
+      Zonemaster::LDNS::RR->new( 'se.			172800	IN	TXT	"SE zone update: 2013-11-13 15:08:28 +0000 (EPOCH 1384355308) (auto)"' );
     ok( $se->unique_push( 'answer', $rr ), 'unique_push returns ok' );
     is( $se->answer, 1, 'one record in answer section' );
     ok( !$se->unique_push( 'answer', $rr ), 'unique_push returns false' );
@@ -95,8 +95,8 @@ SKIP: {
     is( $se->answer, 2, 'two records in answer section' );
 }
 
-my $made = Net::LDNS::Packet->new( 'foo.com', 'SOA', 'IN' );
-isa_ok( $made, 'Net::LDNS::Packet' );
+my $made = Zonemaster::LDNS::Packet->new( 'foo.com', 'SOA', 'IN' );
+isa_ok( $made, 'Zonemaster::LDNS::Packet' );
 
 foreach my $flag (qw[do qr tc aa rd cd ra ad]) {
     ok(!$made->$flag(), uc($flag).' not set');
diff --git a/t/packet.t b/t/packet.t
index cf97bb5..0d55feb 100644
--- a/t/packet.t
+++ b/t/packet.t
@@ -4,9 +4,9 @@ use Test::Fatal;
 use strict;
 use warnings;
 
-use_ok('Net::LDNS');
+use_ok('Zonemaster::LDNS');
 
-my $p = new_ok('Net::LDNS::Packet' => ['www.example.org', 'SOA', 'IN']);
+my $p = new_ok('Zonemaster::LDNS::Packet' => ['www.example.org', 'SOA', 'IN']);
 
 foreach my $r (qw[NOERROR FORMERR SERVFAIL NXDOMAIN NOTIMPL REFUSED YXDOMAIN YXRRSET NXRRSET NOTAUTH NOTZONE]) {
     is($p->rcode($r), $r, $r);
diff --git a/t/regression.t b/t/regression.t
index a0290f6..5838478 100644
--- a/t/regression.t
+++ b/t/regression.t
@@ -4,13 +4,13 @@ use Test::Fatal;
 use strict;
 use warnings;
 
-BEGIN { use_ok("Net::LDNS")}
+BEGIN { use_ok("Zonemaster::LDNS")}
 
 SKIP: {
     skip 'no network', 2 if $ENV{TEST_NO_NETWORK};
 
-    my $s = Net::LDNS->new( '8.8.8.8' );
-    isa_ok( $s, 'Net::LDNS' );
+    my $s = Zonemaster::LDNS->new( '8.8.8.8' );
+    isa_ok( $s, 'Zonemaster::LDNS' );
     like( exception { $s->query( 'xx--example..', 'A' ) }, qr/Invalid domain name: xx--example../, 'Died on invalid name');
 }
 
diff --git a/t/resolver.t b/t/resolver.t
index 15efb06..fc6147b 100644
--- a/t/resolver.t
+++ b/t/resolver.t
@@ -1,11 +1,11 @@
 use Test::More;
 
-use Net::LDNS;
+use Zonemaster::LDNS;
 
 SKIP: {
     skip 'no network', 20 if $ENV{TEST_NO_NETWORK};
 
-    my $r = Net::LDNS->new( '8.8.8.8' );
+    my $r = Zonemaster::LDNS->new( '8.8.8.8' );
 
     $r->recurse( 0 );
     ok( !$r->recurse, 'recursive off' );
@@ -61,7 +61,7 @@ subtest 'recursion' => sub {
     SKIP: {
         skip 'no network', 3 if $ENV{TEST_NO_NETWORK};
 
-        my $r = Net::LDNS->new( '8.8.4.4' );
+        my $r = Zonemaster::LDNS->new( '8.8.4.4' );
         my $p1 = $r->query( 'www.iis.se' );
         is( scalar($p1->answer), 1);
         $r->recurse(0);
@@ -75,21 +75,21 @@ subtest 'global' => sub {
     SKIP: {
         skip 'no network', 3 if $ENV{TEST_NO_NETWORK};
 
-        my $res = new_ok( 'Net::LDNS' );
+        my $res = new_ok( 'Zonemaster::LDNS' );
         my $p = eval { $res->query( 'www.iis.se' ) } ;
 
         if (not $p) {
             diag $@;
         }
         else {
-            isa_ok( $p, 'Net::LDNS::Packet' );
-            isa_ok( $_, 'Net::LDNS::RR' ) for $p->answer;
+            isa_ok( $p, 'Zonemaster::LDNS::Packet' );
+            isa_ok( $_, 'Zonemaster::LDNS::RR' ) for $p->answer;
         }
     }
 };
 
 # subtest 'sections' => sub {
-#     my $res = Net::LDNS->new( '194.146.106.22' );
+#     my $res = Zonemaster::LDNS->new( '194.146.106.22' );
 #     my $p   = eval { $res->query( 'www.iis.se' ) };
 #     plan skip_all => 'No response, cannot test' if not $p;
 #
@@ -100,7 +100,7 @@ subtest 'global' => sub {
 # };
 
 subtest 'broken' => sub {
-    my $b0rken = eval { Net::LDNS->new( 'gurksallad' ) };
+    my $b0rken = eval { Zonemaster::LDNS->new( 'gurksallad' ) };
     ok( !$b0rken );
     like( $@, qr/Failed to parse IP address: gurksallad/ );
 };
diff --git a/t/rr.t b/t/rr.t
index 4eef0f6..4e3e405 100644
--- a/t/rr.t
+++ b/t/rr.t
@@ -3,10 +3,10 @@ use Test::Fatal;
 use Devel::Peek;
 use MIME::Base64;
 
-BEGIN { use_ok( 'Net::LDNS' ) }
+BEGIN { use_ok( 'Zonemaster::LDNS' ) }
 
 my $s;
-$s = Net::LDNS->new( '8.8.8.8' ) unless $ENV{TEST_NO_NETWORK};
+$s = Zonemaster::LDNS->new( '8.8.8.8' ) unless $ENV{TEST_NO_NETWORK};
 
 subtest 'rdf' => sub {
     SKIP: {
@@ -33,7 +33,7 @@ subtest 'SOA' => sub {
         plan skip_all => 'No response, cannot test' if not $p;
 
         foreach my $rr ( $p->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::SOA' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::SOA' );
             is( lc($rr->mname), 'ns.nic.se.' );
             is( lc($rr->rname), 'hostmaster.iis.se.' );
             ok( $rr->serial >= 1381471502, 'serial' );
@@ -53,7 +53,7 @@ subtest 'A' => sub {
         plan skip_all => 'No response, cannot test' if not $p;
 
         foreach my $rr ( $p->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::A' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::A' );
             is( $rr->address, '192.36.144.107', 'expected address string' );
             is( $rr->type, 'A' );
             is( length($rr->rdf(0)), 4 );
@@ -69,7 +69,7 @@ subtest 'AAAA' => sub {
         plan skip_all => 'No response, cannot test' if not $p;
 
         foreach my $rr ( $p->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::AAAA' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::AAAA' );
             is( $rr->address, '2a01:3f0:0:301::53', 'expected address string' );
             is( length($rr->rdf(0)), 16 );
         }
@@ -80,12 +80,12 @@ subtest 'TXT' => sub {
     SKIP: {
         skip 'no network', 1 if $ENV{TEST_NO_NETWORK};
 
-        my $se = Net::LDNS->new( '192.36.144.107' );
+        my $se = Zonemaster::LDNS->new( '192.36.144.107' );
         my $pt = $se->query( 'se', 'TXT' );
         plan skip_all => 'No response, cannot test' if not $pt;
 
         foreach my $rr ( $pt->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::TXT' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::TXT' );
             like( $rr->txtdata, qr/^"SE zone update: / );
         }
     }
@@ -95,12 +95,12 @@ subtest 'DNSKEY' => sub {
     SKIP: {
         skip 'no network', 1 if $ENV{TEST_NO_NETWORK};
 
-        my $se = Net::LDNS->new( '192.36.144.107' );
+        my $se = Zonemaster::LDNS->new( '192.36.144.107' );
         my $pk = $se->query( 'se', 'DNSKEY' );
         plan skip_all => 'No response, cannot test' if not $pk;
 
         foreach my $rr ( $pk->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::DNSKEY' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::DNSKEY' );
             ok( $rr->flags == 256 or $rr->flags == 257 );
             is( $rr->protocol,  3 );
             is( $rr->algorithm, 5 );
@@ -112,12 +112,12 @@ subtest 'RRSIG' => sub {
     SKIP: {
         skip 'no network', 1 if $ENV{TEST_NO_NETWORK};
 
-        my $se = Net::LDNS->new( '192.36.144.107' );
+        my $se = Zonemaster::LDNS->new( '192.36.144.107' );
         my $pr = $se->query( 'se', 'RRSIG' );
         plan skip_all => 'No response, cannot test' if not $pr;
 
         foreach my $rr ( $pr->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::RRSIG' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::RRSIG' );
             is( $rr->signer, 'se.' );
             is( $rr->labels, 1 );
             if ( $rr->typecovered eq 'DNSKEY' ) {
@@ -131,12 +131,12 @@ subtest 'NSEC' => sub {
     SKIP: {
         skip 'no network', 1 if $ENV{TEST_NO_NETWORK};
 
-        my $se = Net::LDNS->new( '192.36.144.107' );
+        my $se = Zonemaster::LDNS->new( '192.36.144.107' );
         my $pn = $se->query( 'se', 'NSEC' );
         plan skip_all => 'No response, cannot test' if not $pn;
 
         foreach my $rr ( $pn->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::NSEC' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::NSEC' );
             ok( $rr->typehref->{TXT} );
             ok( !$rr->typehref->{MX} );
             ok( $rr->typehref->{TXT} );
@@ -146,12 +146,12 @@ subtest 'NSEC' => sub {
 };
 
 subtest 'From string' => sub {
-    my $made = Net::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
-    isa_ok( $made, 'Net::LDNS::RR::NS' );
-    my $made2 = Net::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
+    my $made = Zonemaster::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
+    isa_ok( $made, 'Zonemaster::LDNS::RR::NS' );
+    my $made2 = Zonemaster::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
     is( $made->compare( $made2 ), 0, 'direct comparison works' );
-    my $made3 = Net::LDNS::RR->new_from_string( 'mic.se IN NS a.ns.se' );
-    my $made4 = Net::LDNS::RR->new_from_string( 'oic.se IN NS a.ns.se' );
+    my $made3 = Zonemaster::LDNS::RR->new_from_string( 'mic.se IN NS a.ns.se' );
+    my $made4 = Zonemaster::LDNS::RR->new_from_string( 'oic.se IN NS a.ns.se' );
     is( $made->compare( $made3 ), 1,  'direct comparison works' );
     is( $made->compare( $made4 ), -1, 'direct comparison works' );
     is( $made eq $made2,          1,  'indirect comparison works' );
@@ -165,16 +165,16 @@ subtest 'DS' => sub {
     SKIP: {
         skip 'no network', 1 if $ENV{TEST_NO_NETWORK};
 
-        my $se      = Net::LDNS->new( '192.36.144.107' );
+        my $se      = Zonemaster::LDNS->new( '192.36.144.107' );
         my $pd      = $se->query( 'nic.se', 'DS' );
         plan skip_all => 'No response, cannot test' if not $pd;
 
-        my $nic_key = Net::LDNS::RR->new(
+        my $nic_key = Zonemaster::LDNS::RR->new(
     'nic.se IN DNSKEY 257 3 5 AwEAAdhJAx197qFpGGXuQn8XH0tQpQSfjvLKMcreRvJyO+f3F3weIHR3 6E8DObolHFp+m1YkxsgnHYjUFN4E9sKa38ZXU0oHTSsB3adExJkINA/t INDlKrzUDn4cIbyUCqHNGe0et+lHmjmfZdj62GJlHgVmxizYkoBd7Rg0 wxzEOo7CA3ZadaHuqmVJ2HvqRCoe+5NDsYpnDia7WggvLTe0vorV6kDc u6d5N9AUPwBsR7YUkbetfXMtUebux71kHCGUJdmzp84MeDi9wXYIssjR oTC5wUF2H3I2Mnj5GqdyBwQCdj5otFbRAx3jiMD+ROxXJxOFdFq7fWi1 yPqUf1jpJ+8='
         );
-        my $made = Net::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
+        my $made = Zonemaster::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
         foreach my $rr ( $pd->answer ) {
-            isa_ok( $rr, 'Net::LDNS::RR::DS' );
+            isa_ok( $rr, 'Zonemaster::LDNS::RR::DS' );
             is( $rr->keytag,    16696 );
             is( $rr->algorithm, 5 );
             ok( $rr->digtype == 1 or $rr->digtype == 2 );
@@ -189,9 +189,9 @@ subtest 'DS' => sub {
 };
 
 subtest 'NSEC3' => sub {
-    my $nsec3 = Net::LDNS::RR->new_from_string(
+    my $nsec3 = Zonemaster::LDNS::RR->new_from_string(
         'VD0J8N54V788IUBJL9CN5MUD416BS5I6.com. 86400 IN NSEC3 1 1 0 - VD0N3HDL5MG940MOUBCF5MNLKGDT9RFT NS DS RRSIG' );
-    isa_ok( $nsec3, 'Net::LDNS::RR::NSEC3' );
+    isa_ok( $nsec3, 'Zonemaster::LDNS::RR::NSEC3' );
     is( $nsec3->algorithm, 1 );
     is( $nsec3->flags,     1 );
     ok( $nsec3->optout );
@@ -204,8 +204,8 @@ subtest 'NSEC3' => sub {
 };
 
 subtest 'NSEC3PARAM' => sub {
-    my $nsec3param = Net::LDNS::RR->new_from_string( 'whitehouse.gov.		3600	IN	NSEC3PARAM 1 0 1 B2C19AB526819347' );
-    isa_ok( $nsec3param, 'Net::LDNS::RR::NSEC3PARAM' );
+    my $nsec3param = Zonemaster::LDNS::RR->new_from_string( 'whitehouse.gov.		3600	IN	NSEC3PARAM 1 0 1 B2C19AB526819347' );
+    isa_ok( $nsec3param, 'Zonemaster::LDNS::RR::NSEC3PARAM' );
     is( $nsec3param->algorithm,  1 );
     is( $nsec3param->flags,      0 );
     is( $nsec3param->iterations, 1, "Iterations" );
@@ -214,14 +214,14 @@ subtest 'NSEC3PARAM' => sub {
 };
 
 subtest 'SRV' => sub {
-    my $srv = Net::LDNS::RR->new( '_nicname._tcp.se.	172800	IN	SRV	0 0 43 whois.nic-se.se.' );
+    my $srv = Zonemaster::LDNS::RR->new( '_nicname._tcp.se.	172800	IN	SRV	0 0 43 whois.nic-se.se.' );
     is( $srv->type, 'SRV' );
 };
 
 subtest 'SPF' => sub {
-    my $spf = Net::LDNS::RR->new(
+    my $spf = Zonemaster::LDNS::RR->new(
         'frobbit.se.		1127	IN	SPF	"v=spf1 ip4:85.30.129.185/24 mx:mail.frobbit.se ip6:2a02:80:3ffe::0/64 ~all"' );
-    isa_ok( $spf, 'Net::LDNS::RR::SPF' );
+    isa_ok( $spf, 'Zonemaster::LDNS::RR::SPF' );
     is( $spf->spfdata, '"v=spf1 ip4:85.30.129.185/24 mx:mail.frobbit.se ip6:2a02:80:3ffe::0/64 ~all"' );
 };
 
diff --git a/t/rrlist.t b/t/rrlist.t
index 2b1d40e..a0a8b0d 100644
--- a/t/rrlist.t
+++ b/t/rrlist.t
@@ -1,30 +1,30 @@
 use Test::More;
 use Devel::Peek;
 
-use Net::LDNS;
+use Zonemaster::LDNS;
 
-my $rrl = Net::LDNS::Packet->new( 'foo.com', 'SOA', 'IN' )->all;
+my $rrl = Zonemaster::LDNS::Packet->new( 'foo.com', 'SOA', 'IN' )->all;
 $rrl->pop;
 
 SKIP: {
     skip 'no network', 3 if $ENV{TEST_NO_NETWORK};
 
-    my $s = Net::LDNS->new( '8.8.8.8' );
+    my $s = Zonemaster::LDNS->new( '8.8.8.8' );
     my $p = $s->query( 'iis.se', 'SOA' );
 
     $rrl = $p->all;
-    isa_ok( $rrl, 'Net::LDNS::RRList' );
+    isa_ok( $rrl, 'Zonemaster::LDNS::RRList' );
 
     is( $rrl->count, 1, 'one RR in list' );
     my $rr = $rrl->pop;
-    isa_ok( $rr, 'Net::LDNS::RR::SOA' );
+    isa_ok( $rr, 'Zonemaster::LDNS::RR::SOA' );
 }
 
 is( $rrl->count, 0, 'zero RRs in list' );
 
-my $rr1 = Net::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
-my $rr2 = Net::LDNS::RR->new_from_string( 'mic.se IN NS a.ns.se' );
-my $rr3 = Net::LDNS::RR->new_from_string( 'nic.se IN NS b.ns.se' );
+my $rr1 = Zonemaster::LDNS::RR->new_from_string( 'nic.se IN NS a.ns.se' );
+my $rr2 = Zonemaster::LDNS::RR->new_from_string( 'mic.se IN NS a.ns.se' );
+my $rr3 = Zonemaster::LDNS::RR->new_from_string( 'nic.se IN NS b.ns.se' );
 
 ok( $rrl->push( $rr1 ), 'Push OK' );
 ok( $rrl->push( $rr3 ), 'Second push OK' );
@@ -35,7 +35,7 @@ is( $rrl->count, 3, 'Three RRs in list' );
 ok( !$rrl->is_rrset, 'Is not an RRset' );
 
 while ( my $rr = $rrl->pop ) {
-    isa_ok( $rr, 'Net::LDNS::RR::NS' );
+    isa_ok( $rr, 'Zonemaster::LDNS::RR::NS' );
 }
 is( $rrl->count, 0, 'zero RRs in list' );
 ok( !$rrl->is_rrset, 'Is not an RRset' );
diff --git a/t/serialize.t b/t/serialize.t
index 87e1308..cdb60a1 100644
--- a/t/serialize.t
+++ b/t/serialize.t
@@ -1,18 +1,18 @@
 use Test::More;
 use JSON::PP;
 
-use_ok( 'Net::LDNS' );
+use_ok( 'Zonemaster::LDNS' );
 
-my $p = Net::LDNS::Packet->new( 'www.iis.se', 'A', 'IN' );
+my $p = Zonemaster::LDNS::Packet->new( 'www.iis.se', 'A', 'IN' );
 $p->answerfrom( '127.0.0.1' );
 $p->timestamp( '1384423749.28615' );
 
 my $json = JSON::PP->new->allow_blessed->convert_blessed;
 my $ref  = decode_json $json->encode( $p );
-is( $ref->{'Net::LDNS::Packet'}{answerfrom}, '127.0.0.1' );
+is( $ref->{'Zonemaster::LDNS::Packet'}{answerfrom}, '127.0.0.1' );
 
 my $decode = JSON::PP->new->filter_json_single_key_object(
-    'Net::LDNS::Packet' => sub { is $_[0]->{answerfrom}, '127.0.0.1'; return; } );
+    'Zonemaster::LDNS::Packet' => sub { is $_[0]->{answerfrom}, '127.0.0.1'; return; } );
 $decode->decode( $json->encode( $p ) );
 
 done_testing;
diff --git a/t/threads.t b/t/threads.t
index 43d5be8..48c0086 100644
--- a/t/threads.t
+++ b/t/threads.t
@@ -1,24 +1,24 @@
 use Test::More;
 
-use_ok('Net::LDNS');
+use_ok('Zonemaster::LDNS');
 
 SKIP: {
     my $can_use_threads = eval 'use threads; 1';
 
     skip 'no network or no threads', 4 if ( $ENV{TEST_NO_NETWORK} || !$can_use_threads );
 
-    my $resolver = Net::LDNS->new('8.8.8.8');
-    isa_ok($resolver, 'Net::LDNS');
-    my $rr = Net::LDNS::RR->new('www.iis.se.		60	IN	A	91.226.36.46');
-    isa_ok($rr, 'Net::LDNS::RR::A');
+    my $resolver = Zonemaster::LDNS->new('8.8.8.8');
+    isa_ok($resolver, 'Zonemaster::LDNS');
+    my $rr = Zonemaster::LDNS::RR->new('www.iis.se.		60	IN	A	91.226.36.46');
+    isa_ok($rr, 'Zonemaster::LDNS::RR::A');
     my $p = $resolver->query('www.google.com');
-    isa_ok($p, 'Net::LDNS::Packet');
+    isa_ok($p, 'Zonemaster::LDNS::Packet');
     my $rrlist = $p->all;
-    isa_ok($rrlist, 'Net::LDNS::RRList');
+    isa_ok($rrlist, 'Zonemaster::LDNS::RRList');
 
     threads->create( sub {
         my $p = $resolver->query('www.lysator.liu.se');
-        if (not ($p and ref($p) and ref($p) eq 'Net::LDNS::Packet')) {
+        if (not ($p and ref($p) and ref($p) eq 'Zonemaster::LDNS::Packet')) {
             die "Something is wrong here";
         }
     } ) for 1..5;
diff --git a/t/utils.t b/t/utils.t
index 3d9c5e6..502b3d4 100644
--- a/t/utils.t
+++ b/t/utils.t
@@ -1,11 +1,11 @@
 use Test::More;
 
-BEGIN { use_ok( 'Net::LDNS' ) }
+BEGIN { use_ok( 'Zonemaster::LDNS' ) }
 
 SKIP: {
     skip 'no network', 5 if $ENV{TEST_NO_NETWORK};
 
-    my $res = new_ok( 'Net::LDNS', ['8.8.4.4'] );
+    my $res = new_ok( 'Zonemaster::LDNS', ['8.8.4.4'] );
 
     my @addrs = sort $res->name2addr( 'b.ns.se' );
     my $count = $res->name2addr( 'b.ns.se' );