Merge branch 'release/Net-Whois-RIPE-2.004001'

Changes

@@ -1,5 +1,9 @@
 Revision history for net-whois-ripe
 
+2.004001    2013-06-19
+            - Remove Test::Exception requirement
+            - Add one test
+
 2.004000    2013-05-29
             - Fix 'delete' mode on accessor
             - Add awhois.pl skeleton script

MANIFEST

@@ -1,3 +1,4 @@
+bin/awhois.pl
 Changes
 lib/Net/Whois/Object.pm
 lib/Net/Whois/Object/AsBlock.pm
@@ -30,6 +31,8 @@ MANIFEST
 META.json			Module JSON meta-data (added by MakeMaker)
 META.yml			Module meta-data (added by MakeMaker)
 README
+README.md
+t/00-changes.t
 t/00-load.t
 t/01-instantiation.t
 t/02-methods.t
@@ -59,6 +62,7 @@ t/200-Information.t
 t/205-Irt.t
 t/210-FilterSet.t
 t/215-SyncUpdates.t
+t/216-SyncUpdates-Signed.t
 t/boilerplate.t
 t/common.pl
 t/pod-coverage.t

META.json

@@ -20,11 +20,6 @@
       ]
    },
    "prereqs" : {
-      "build" : {
-         "requires" : {
-            "Test::Exception" : "0"
-         }
-      },
       "configure" : {
          "requires" : {
             "ExtUtils::MakeMaker" : "0"

META.yml

@@ -2,8 +2,6 @@
 abstract: 'a pure-Perl implementation of the RIPE Database client.'
 author:
   - 'Luis Motta Campos <lmc@cpan.org>'
-build_requires:
-  Test::Exception: 0
 configure_requires:
   ExtUtils::MakeMaker: 0
 dynamic_config: 1

Makefile.PL

@@ -22,7 +22,7 @@ WriteMakefile(
                         bugtracker => 'https://github.com/arhuman/Net-Whois-RIPE/issues'
         },
     },
-    BUILD_REQUIRES => { 'Test::Exception' => 0, },
+    BUILD_REQUIRES => { },
     dist           => { COMPRESS          => 'gzip -9f', SUFFIX => 'gz', },
     clean          => { FILES             => 'Net-Whois-RIPE-*' },
 );

lib/Net/Whois/RIPE.pm

@@ -28,11 +28,11 @@ Net::Whois::RIPE - a pure-Perl implementation of the RIPE Database client.
 
 =head1 VERSION
 
-Version 2.004000
+Version 2.004001
 
 =cut
 
-our $VERSION = 2.004000;
+our $VERSION = 2.004001;
 
 =head1 SYNOPSIS
 

t/02-methods.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;
@@ -97,7 +96,8 @@ SKIP: {
     ok $c->is_connected, 'The client is connected.';
 
     # reconnect()
-    lives_ok { $c->reconnect } 'The client re-connected without dying.';
+    eval {$c->reconnect };
+    ok !$@,'The client re-connected without dying.';
     ok $c->is_connected, 'The client is connected (once more).';
 
     # ios()
@@ -111,27 +111,28 @@ SKIP: {
     # query()
     {
         my $iter;
-        lives_ok { $iter = $c->query('LMC-RIPE') }
-        q{Client performs queries without dying};
+        eval { $iter = $c->query('LMC-RIPE') };
+        ok !$@, q{Client performs queries without dying};
         isa_ok $iter, 'Iterator';
+        last unless $iter;
         ok $iter->isnt_exhausted, q{Iterator contains at least one result};
     }
 
     # object_types()
     {
         my @types;
-        lives_ok { @types = $c->object_types }
-        q{Client can retrieve available object types without dying.};
+        eval { @types = $c->object_types };
+        ok !$@ , q{Client can retrieve available object types without dying.};
         is $#types, 20,
           q{There are 21 known object types in the RIPE Database};
     }
 
     # send()
 
     # disconnect()
-    lives_ok { $c->disconnect } 'The client disconnected without dying.';
+    eval { $c->disconnect };
+    ok !$@ , 'The client disconnected without dying.';
     ok !$c->is_connected, 'The client is not connected (anymore).';
 
     # DESTROY()
 }
-

t/03-objects.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/105-AsBlock.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 # use IO::Handle;

t/110-AutNum.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 use Net::Whois::Object;
 
 # synchronizes the {error,standard} output of this test.

t/115-Person.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/120-Role.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/125-AsSet.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/130-Domain.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/135-InetNum.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/140-Inet6Num.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/145-InetRtr.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/150-RtrSet.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/155-Mntner.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/160-KeyCert.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/165-Route.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/167-Route6.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/170-RouteSet.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/175-PeeringSet.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/180-Limerick.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/185-Poem.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/187-PoeticForm.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/190-Organisation.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/195-Response.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/200-Information.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/205-Irt.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/210-FilterSet.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More qw( no_plan );
-use Test::Exception;
 
 # synchronizes the {error,standard} output of this test.
 use IO::Handle;

t/215-SyncUpdates.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Exception;
 use Net::Whois::RIPE;
 use Net::Whois::Object;
 

t/216-SyncUpdates-Signed.t

@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Exception;
 use Net::Whois::RIPE;
 use Net::Whois::Object;