File Coverage

blib/lib/Data/Gimei.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 2 0.0
total 33 35 94.2


line stmt bran cond sub pod time code
1             package Data::Gimei;
2              
3 5     5   4344 use warnings;
  5         37  
  5         135  
4 5     5   48 use v5.22;
  5         14  
5              
6 5     5   1935 use version; our $VERSION = version->declare("v0.4.0");
  5         8970  
  5         39  
7              
8 5     5   2535 use Data::Gimei::Name;
  5         15  
  5         158  
9 5     5   2077 use Data::Gimei::Address;
  5         13  
  5         139  
10 5     5   1804 use Data::Gimei::Word;
  5         13  
  5         452  
11 5     5   1796 use Data::Gimei::Random;
  5         15  
  5         419  
12              
13             my $r = Data::Gimei::Random->new;
14              
15             sub set_random_seed {
16 4     4 0 1633 my $seed = shift;
17 4         22 $r->set_seed($seed);
18             }
19              
20             sub sample {
21 50     50 0 69 my $array = shift;
22 50         117 return $r->sample($array);
23             }
24             1;
25              
26             __END__