#!perl
use Test::More tests => 5;
BEGIN {
use_ok( 'Net::Whois::IANA' ) || print "Bail out!
";
}
diag( "Testing Net::Whois::IANA $Net::Whois::IANA::VERSION, Perl $], $^X" );
ok($Net::Whois::IANA::VERSION, "version defined");
ok(@Net::Whois::IANA::EXPORT, "we're exporting");
for my $export (@Net::Whois::IANA::EXPORT) {
if ($export =~ /^\W/) {
my $val = eval $export;
ok(defined $val, "val $export");
}
else {
ok(defined &$export, "sub $export");
}
}