File Coverage

blib/lib/Data/Gimei.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 2 0.0
total 37 39 94.8


line stmt bran cond sub pod time code
1             package Data::Gimei;
2              
3 6     6   280565 use 5.010;
  6         29  
4 6     6   33 use strict;
  6         26  
  6         191  
5 6     6   29 use warnings;
  6         10  
  6         384  
6              
7 6     6   2858 use version; our $VERSION = version->declare("v0.5.0");
  6         13265  
  6         40  
8              
9 6     6   3883 use Data::Gimei::Name;
  6         25  
  6         275  
10 6     6   3102 use Data::Gimei::Address;
  6         18  
  6         214  
11 6     6   2767 use Data::Gimei::Word;
  6         19  
  6         238  
12 6     6   2708 use Data::Gimei::Random;
  6         16  
  6         682  
13              
14             my $r = Data::Gimei::Random->new;
15              
16             #
17             # Package methods
18             #
19              
20             sub set_random_seed {
21 8     8 0 617813 my $seed = shift;
22 8         36 $r->set_seed($seed);
23             }
24              
25             sub sample {
26 58     58 0 635995 my $array = shift;
27 58         145 return $r->sample($array);
28             }
29             1;
30              
31             __END__