File Coverage

blib/lib/Net/DAS/EU.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Net::DAS::EU;
2 2     2   1183 use 5.010;
  2         4  
  2         63  
3 2     2   8 use strict;
  2         8  
  2         51  
4 2     2   6 use warnings;
  2         6  
  2         224  
5              
6             sub register {
7             return {
8 1     1 0 7 tlds => [qw(eu)],
9             public => {
10             host => 'das.eu',
11             port => 4343,
12             },
13             registrar => {
14             host => 'das.registry.eu',
15             port => 4343,
16             },
17             dispatch => [\&query, undef],
18             };
19             }
20              
21             sub query {
22 4     4 0 5 my $d = shift;
23 4         12 $d =~ s/.eu.*$//;
24 4         16 return "get 2.0 " . $d;
25             }
26              
27             1;
28              
29             =pod
30              
31             =head1 NAME
32              
33             Net::DAS::EU - Net::DAS .EU extension.
34              
35             See L
36              
37             =head1 AUTHOR
38              
39             Michael Holloway
40              
41             =head1 LICENSE
42              
43             Artistic License
44              
45             =cut