File Coverage

blib/lib/Net/DAS/NO.pm
Criterion Covered Total %
statement 13 14 92.8
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package Net::DAS::NO;
2 2     2   1256 use 5.010;
  2         5  
  2         74  
3 2     2   8 use strict;
  2         2  
  2         66  
4 2     2   9 use warnings;
  2         4  
  2         496  
5              
6             sub register {
7             return {
8 1     1 0 39 tlds => [qw(no)],
9             public => {
10             host => 'whois.norid.no',
11             port => 79,
12             },
13             dispatch => [undef, \&parse],
14             };
15             }
16              
17             sub parse {
18 4     4 0 7 chomp (my $i = uc(shift));
19 4 100       19 return 1 if uc($i) =~ m/IS AVAILABLE/;
20 2 50       9 return 0 if uc($i) =~ m/IS DELEGATED/;
21 0           return (-100) ; # failed to determine/parse
22             }
23              
24             1;
25              
26             =pod
27              
28             =head1 NAME
29              
30             Net::DAS::NO - Net::DAS .NO extension.
31              
32             See L
33              
34             =head1 AUTHOR
35              
36             Michael Holloway
37              
38             =head1 LICENSE
39              
40             Artistic License
41              
42             =cut