File Coverage

blib/lib/Data/RandomPerson/Names/Male.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Data::RandomPerson::Names::Male;
2              
3 2     2   449 use strict;
  2         3  
  2         45  
4 2     2   6 use warnings;
  2         3  
  2         43  
5              
6 2     2   6 use base 'Data::RandomPerson::Names';
  2         2  
  2         666  
7              
8             1;
9              
10             =pod
11              
12             =head1 NAME
13              
14             Data::RandomPerson::Names::Male - A list of male names from some census data
15              
16             =head1 SYNOPSIS
17              
18             use Data::RandomPerson::Names::Male;
19              
20             my $m = Data::RandomPerson::Names::Male->new();
21              
22             print $m->get();
23              
24             =head1 DESCRIPTION
25              
26             =head2 Overview
27              
28             Returns a random element from a list of male names culled from some census data.
29              
30             =head2 Constructors and initialization
31              
32             =over 4
33              
34             =item new( )
35              
36             Create the Data::RandomPerson::Names::Male object.
37              
38             =back
39              
40             =head2 Class and object methods
41              
42             =over 4
43              
44             =item get( )
45              
46             Returns a random name from the list.
47              
48             =item size( )
49              
50             Returns the size of the list
51              
52             =back
53              
54             =head1 AUTHOR
55              
56             Peter Hickman (peterhi@ntlworld.com)
57              
58             =head1 COPYRIGHT
59              
60             Copyright (c) 2005, Peter Hickman. This module is
61             free software. It may be used, redistributed and/or modified under the
62             same terms as Perl itself.
63              
64             =cut
65