blib/lib/Exporter/VA.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 25 | 36 | 69.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
177 | 11 | 1 | 1 | not @_ and defined $$export_def{':DEFAULT'} |
246 | 37 | 0 | 8 | not defined $value and $item =~ /^&(.+)$/ |
276 | 0 | 4 | 31 | defined $X and $sigil ne '-' |
394 | 1 | 4 | 3 | $sigil eq '&' and exists $$self{$body} |
395 | 5 | 0 | 0 | $sigil eq '<' and exists $$self{"$body>"} |
476 | 4 | 9 | 0 | defined $existing_home and $existing_home ne $home |
507 | 0 | 1 | 1 | $index > 0 and $$params[$index - 1] eq '-def' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
105 | 4 | 2 | 0 | $$export_def{'..max_VERSION'} || _get_VERSION($home) |
115 | 1 | 0 | 0 | $$export_def{'..max_VERSION'} || _get_VERSION($home) |
197 | 31 | 4 | 5 | $item =~ /^[\$\@\%\*\&]?\w+$/ or $item =~ /^-/ |
35 | 0 | 5 | $item =~ /^[\$\@\%\*\&]?\w+$/ or $item =~ /^-/ or $item =~ s/^(<\w+)>$/$1/ | |
576 | 0 | 2 | 1 | exists $$client_export_def{$func} or exists $$client_export_def{'&' . $func} |