File Coverage

blib/lib/Data/RandomPerson/Names.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::RandomPerson::Names;
2              
3 5     5   26 use strict;
  5         5  
  5         146  
4 5     5   17 use warnings;
  5         6  
  5         447  
5              
6             sub size {
7 31     31 1 24256 my ($self) = @_;
8              
9 31         120 return $self->{choice}->size();
10             }
11              
12             sub get {
13 1540     1540 1 6967 my ($self) = @_;
14              
15 1540         2362 return ucfirst $self->{choice}->pick();
16             }
17              
18             1;
19              
20             __END__