File Coverage

blib/lib/Net/DAS/SI.pm
Criterion Covered Total %
statement 13 15 86.6
branch 3 6 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 28 75.0


line stmt bran cond sub pod time code
1             package Net::DAS::SI;
2 2     2   1264 use 5.010;
  2         5  
  2         64  
3 2     2   6 use strict;
  2         3  
  2         49  
4 2     2   7 use warnings;
  2         2  
  2         345  
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 6 chomp (my $i = uc(shift));
19 4 100       21 return 1 if uc($i) =~ m/IS AVAILABLE/;
20 2 50       10 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