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 '!' |