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   1214 use 5.010;
  2         4  
  2         67  
3 2     2   8 use strict;
  2         2  
  2         53  
4 2     2   7 use warnings;
  2         2  
  2         318  
5              
6             sub register {
7             return {
8 1     1 0 6 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       15 return 1 if uc($i) =~ m/IS AVAILABLE/;
20 2 50       8 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