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   4181 use warnings;
  5         28  
  5         141  
4 5     5   52 use v5.22;
  5         16  
5              
6 5     5   1916 use version; our $VERSION = version->declare("v0.3.0");
  5         8656  
  5         26  
7              
8 5     5   2313 use Data::Gimei::Name;
  5         17  
  5         161  
9 5     5   2088 use Data::Gimei::Address;
  5         13  
  5         132  
10 5     5   1855 use Data::Gimei::Word;
  5         12  
  5         155  
11 5     5   1762 use Data::Gimei::Random;
  5         11  
  5         412  
12              
13             my $r = Data::Gimei::Random->new;
14              
15             sub set_random_seed {
16 4     4 0 1446 my $seed = shift;
17 4         16 $r->set_seed($seed);
18             }
19              
20             sub sample {
21 50     50 0 69 my $array = shift;
22 50         100 return $r->sample($array);
23             }
24             1;
25              
26             __END__