File Coverage

blib/lib/Net/DAS/NO.pm
Criterion Covered Total %
statement 12 13 92.3
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Net::DAS::NO;
2 2     2   2160 use 5.010;
  2         7  
3 2     2   11 use strict;
  2         3  
  2         58  
4 2     2   9 use warnings;
  2         4  
  2         497  
5              
6             sub register {
7             return {
8 1     1 0 9 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 9 chomp( my $i = uc(shift) );
19 4 100       19 return 1 if uc($i) =~ m/IS AVAILABLE/;
20 2 50       12 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