fix RIPE->new

it ignored the "unfiltered" option Also adds a test.
moritz · Sep 17, 2012 · 56e06bf · 56e06bf
1 parent 200ad64
commit 56e06bf
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/Net/Whois/RIPE.pm b/lib/Net/Whois/RIPE.pm
@@ -170,8 +170,6 @@ connection to the RIPE Database service desired.
 =cut
 
 {
-    my @option_keys = qw{hostname port timeout keepalive referral
-        recursive grouping types};
     my %default_options = (
         hostname     => 'whois.ripe.net',
         port         => '43',
@@ -190,7 +188,7 @@ connection to the RIPE Database service desired.
         my %known_options;
         $known_options{$_}
             = exists $options{$_} ? $options{$_} : $default_options{$_}
-            foreach @option_keys;
+            foreach keys %default_options;
 
         my $self = bless { __options => \%known_options }, $class;
 

diff --git a/t/02-methods.t b/t/02-methods.t
@@ -29,7 +29,7 @@ can_ok $class,
   qw( DESTROY );
 
 {
-    my $c = Net::Whois::RIPE->new( disconnected => 1 );
+    my $c = Net::Whois::RIPE->new( disconnected => 1, unfiltered => 1 );
     isa_ok $c, $class;
 
     # hostname()
@@ -78,6 +78,8 @@ can_ok $class,
     ok !$c->grouping, q{and 0 is probably the only way to turn it off.};
     $c->grouping('yes');
     ok $c->grouping, q{true values are interpreted as true for grouping.};
+
+    ok $c->unfiltered, '->new can set the unfiltered flag';
 }
 
 {