File Coverage

blib/lib/Mic/_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 Mic::_Guts;
2              
3 33     33   218 use Digest::MD5 qw( md5_hex );
  33         79  
  33         5408  
4              
5             our %obfu_name;
6             our %Implementation_meta;
7              
8             sub obfu_name {
9 179     179 0 377 my ($name, $spec) = @_;
10              
11 179 100 66     802 if ($spec->{no_attribute_vars} || ! $obfu_name{$name}) {
12 17         84 return "-$name";
13             }
14             else {
15 162         432 return $obfu_name{$name};
16             }
17             }
18              
19             sub attribute_sym {
20 79   33 79 0 470 my $datum = shift || $$;
21              
22 79         2186 return substr(md5_hex($datum), 0 ,8);
23             }
24              
25             1;