File Coverage

t/nofqdn.t
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine n/a
pod n/a
total n/a


line stmt bran cond sub pod time code
1              
2              
3             use NetAddr::IP;
4              
5             $| = 1;
6              
7             print "1..1\n";
8              
9             my $test = 1;
10             sub ok() {
11             print 'ok ',$test++,"\n";
12             }
13              
14              
15             my $ip = new NetAddr::IP('arin.net');
16             if (defined $ip) {
17             print "ok $test # Skipped, resolved $ip\n";
18             $test++;
19             } else {
20             print "ok $test # Skipped, resolver not working\n";
21             $test++;
22             }
23              
24             #import NetAddr::IP qw(:nofqdn);
25             #
26             #$ip = new NetAddr::IP('arin.net');
27             #print "unexpected response with :nofqdn\nnot "
28             # if defined $ip;
29             #&ok;