File Coverage

blib/lib/Parse/CPAN/Whois/Author.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 6 7 85.7
pod 5 5 100.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             # vim: sts=3 sw=3 et
2             package Parse::CPAN::Whois::Author;
3 1     1   6 use strict;
  1         3  
  1         43  
4 1     1   7 use warnings;
  1         1  
  1         221  
5              
6             our $VERSION='0.01';
7              
8             =head1 NAME
9              
10             Parse::CPAN::Whois::Author
11              
12             =head1 METHODS
13              
14             =head2 email
15              
16             =cut
17              
18             sub email {
19 1     1 1 4 return $_[0]->{email};
20             }
21              
22             =head2 name
23              
24             =cut
25              
26             sub name {
27 1     1 1 382 return $_[0]->{fullname};
28             }
29              
30             =head2 pauseid
31              
32             =cut
33              
34             sub pauseid {
35 0     0 1 0 return $_[0]->{id};
36             }
37              
38             =head2 asciiname
39              
40             name transliterated to ASCII
41              
42             =cut
43              
44             sub asciiname {
45 1     1 1 6 return $_[0]->{asciiname};
46             }
47              
48             =head2 homepage
49              
50             =cut
51              
52             sub homepage {
53 1     1 1 7 return $_[0]->{homepage};
54             }
55              
56             1;