Permalink
Browse files

Merge branch 'release/Net-Whois-RIPE-2.005' into develop

  • Loading branch information...
arhuman committed Oct 10, 2013
2 parents dc66740 + 256cdb6 commit 0362eea0b241e64bf3863d0e3eb61748a1c6599f
Showing with 9 additions and 12 deletions.
  1. +2 −1 Changes
  2. +2 −2 lib/Net/Whois/RIPE.pm
  3. +5 −9 t/300-AFRINIC.t
View
@@ -1,7 +1,8 @@
Revision history for net-whois-ripe
- - Add support for Generic Object (from various sources, AFRINIC being the first implemented)
+2.005000 2013-10-10
+ - Add support for generic objects (from various sources, AFRINIC being the first implemented)
through Net::Whois::Generic
2.004002 2013-07-31
View
@@ -27,11 +27,11 @@ Net::Whois::RIPE - a pure-Perl implementation of the RIPE Database client.
=head1 VERSION
-Version 2.004002
+Version 2.005000
=cut
-our $VERSION = 2.004002;
+our $VERSION = 2.005000;
=head1 SYNOPSIS
View
@@ -1,15 +1,12 @@
use strict;
use warnings;
+
use Test::More qw(no_plan);
-our $class;
-BEGIN {
- $class = 'Net::Whois::Generic';
- use_ok $class;
-}
+use_ok 'Net::Whois::Generic';
my $c = Net::Whois::Generic->new( disconnected => 1, unfiltered => 1 );
-isa_ok $c, $class;
+isa_ok $c, 'Net::Whois::Generic';
my $org;
eval { ($org) = $c->query( 'ORG-AFNC1-AFRINIC', { type => 'organisation' } ) };
@@ -18,11 +15,10 @@ isa_ok $org, 'Net::Whois::Object::Organisation::AFRINIC';
my $inetnum;
my @o;
-eval { @o = $c->query( '105.0.0.1') };
+eval { @o = $c->query('105.0.0.1') };
ok !$@, qq{Client performs queries without dying $@};
for my $o (@o) {
my $type = ref $o;
- ok($type =~ /(AFRINIC|Information)/, "Object ".$o->class." returned");
+ ok( $type =~ /(AFRINIC|Information)/, "Object " . $o->class . " returned" );
}
-done_testing();

0 comments on commit 0362eea

Please sign in to comment.