File Coverage

blib/lib/Minions/_Guts.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition 3 6 50.0
subroutine 3 3 100.0
pod 0 2 0.0
total 17 22 77.2


line stmt bran cond sub pod time code
1             package Minions::_Guts;
2              
3 48     48   250 use Digest::MD5 qw( md5_hex );
  48         82  
  48         8467  
4              
5             our %obfu_name;
6              
7             sub obfu_name {
8 229     229 0 411 my ($name, $spec) = @_;
9              
10 229 100 66     1364 if ($spec->{no_attribute_vars} || ! $obfu_name{$name}) {
11 57         212 return "-$name";
12             }
13             else {
14 172         551 return $obfu_name{$name};
15             }
16             }
17              
18             sub attribute_sym {
19 79   33 79 0 354 my $datum = shift || $$;
20              
21 79         2340 return substr(md5_hex($datum), 0 ,8);
22             }
23              
24             1;