| line |
true |
false |
branch |
|
66
|
7 |
0 |
if ($pkg eq 'Xporter') |
|
67
|
7 |
0 |
unless grep /$pkg/, @{$caller . '::ISA';} |
|
73
|
15 |
31 |
ref $arg && 'HASH' eq ref $arg && defined $field && exists $$arg{$field} ? : |
|
82
|
0 |
0 |
$v1_num > $v2_num ? : |
|
85
|
0 |
0 |
if $r < 0 |
|
86
|
0 |
0 |
if $r > 0 |
|
100
|
0 |
0 |
if (@v1 > 2 or @v2 > 2) { } |
|
101
|
0 |
0 |
if cmp_ver(\@v1, \@v2) >= 0 |
|
103
|
0 |
0 |
if $pkg_ver and ($pkg_ver cmp $requires) >= 0 |
|
104
|
0 |
0 |
if $pkg_ver ne '(undef)' and $pkg_ver >= $requires |
|
122
|
0 |
46 |
unless $_ |
|
125
|
15 |
31 |
if ($mapped_op) { } |
|
|
31 |
0 |
elsif ($type =~ /\w/) { } |
|
127
|
0 |
15 |
if ($mapped_op eq '!') |
|
142
|
0 |
12 |
if (@_ and $_[0] and $_[0] =~ /^(v?[\d\._]+)$/) |
|
145
|
0 |
0 |
if ($pkg->can('VERSION') and @t < 3 and $1) { } |
|
152
|
8 |
8 |
if ($pkg eq 'Xporter') |
|
153
|
1 |
7 |
if (@_ and $_[0] eq 'import') { } |
|
173
|
1 |
5 |
if (@_ and $_[0] and $_[0] eq '!' || $_[0] eq '-') |
|
182
|
0 |
7 |
if ($mapped_op eq '!') { } |
|
|
7 |
0 |
elsif (grep /$name/, @allowed_exports) { } |
|
183
|
0 |
0 |
if (grep /$name/, @$export) |
|
199
|
39 |
0 |
if ($mapped_op) { } |
|
200
|
0 |
39 |
if $mapped_op eq '!' |
|
201
|
0 |
39 |
if $mapped_op eq '!' |