File Coverage

blib/lib/Net/DAS/SI.pm
Criterion Covered Total %
statement 12 14 85.7
branch 3 6 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 20 27 74.0


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