| perllib/Arch/SharedIndex.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 34 | 67.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 115 | 7 | 1 | 591 | %keys and $num >= 0 |
| 138 | 990 | 0 | 1154 | defined $value and $$self{'time_renewal'} |
| 228 | 20 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
| 347 | 66 | 0 | 30 | not -f $file and $$self{'can_create'} |
| 375 | 0 | 96 | 0 | $$self{'max_size'} and @$index_list > $$self{'max_size'} |
| line | l | !l | condition |
|---|---|---|---|
| 31 | 48 | 0 | $init{'max_size'} || 0 |
| 0 | 48 | $init{'expiration'} || 0 | |
| 38 | 10 | $init{'perl_data'} || 0 | |
| 24 | 24 | $init{'perl_data_indent'} || 0 | |
| 24 | 24 | $init{'perl_data_pair'} || '=>' | |
| 215 | 20 | 0 | shift() || die('No code given') |
| 295 | 2 | 2 | shift() || sub { $_[1]; } |
| 309 | 4 | 0 | shift() || sub { $_[1]; } |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 139 | 1140 | 14 | 0 | $time ||= time |