File Coverage

blib/lib/Net/DAS/UK.pm
Criterion Covered Total %
statement 16 17 94.1
branch 7 8 87.5
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 28 32 87.5


line stmt bran cond sub pod time code
1             package Net::DAS::UK;
2 2     2   1424 use 5.010;
  2         5  
  2         78  
3 2     2   9 use strict;
  2         2  
  2         47  
4 2     2   8 use warnings;
  2         10  
  2         1242  
5              
6             sub register {
7             return {
8 1     1 0 9 tlds => [qw (uk co.uk ltd.uk me.uk net.uk org.uk plc.uk sch.uk)],
9             public => {
10             host => 'dac.nic.uk',
11             #host => 'testbed-dac.nominet.org.uk',
12             port => 2043,
13             },
14             registrar => {
15             host => 'dac.nic.uk',
16             port => 3043,
17             },
18             delay => 3000000,
19             dispatch => [undef, \&parse],
20             close_cmd => '#exit',
21             };
22             }
23              
24             sub parse {
25 7     7 0 12 chomp (my $i = uc(shift));
26 7 100       19 return (-2) if $i =~ m/IP ADDRESS (.*) NOT REGISTERED/;
27 6         26 $i =~ m/^([\w.]*),(\w)(,.*)?/;
28 6 100       18 return 1 if $2 eq 'N';
29 4 100       12 return 0 if $2 eq 'Y';
30 2 50       7 return -3 if $2 eq 'B';
31 0           return (-100);
32             }
33              
34             1;
35              
36             =pod
37              
38             =head1 NAME
39              
40             Net::DAS::UK - Net::DAS .UK extension.
41              
42             See L
43              
44             =head1 AUTHOR
45              
46             Michael Holloway
47              
48             =head1 LICENSE
49              
50             Artistic License
51              
52             =cut