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   195 use Digest::MD5 qw( md5_hex );
  33         63  
  33         4678  
4              
5             our %obfu_name;
6             our %Implementation_meta;
7              
8             sub obfu_name {
9 188     188 0 404 my ($name, $spec) = @_;
10              
11 188 100 66     770 if ($spec->{no_attribute_vars} || ! $obfu_name{$name}) {
12 11         42 return "-$name";
13             }
14             else {
15 177         486 return $obfu_name{$name};
16             }
17             }
18              
19             sub attribute_sym {
20 94   33 94 0 548 my $datum = shift || $$;
21              
22 94         2488 return substr(md5_hex($datum), 0 ,8);
23             }
24              
25             1;