line |
true |
false |
branch |
81
|
0 |
4 |
unless my $r = $tags{$tag} |
82
|
0 |
4 |
ref $r eq 'ARRAY' ? : |
92
|
0 |
4 |
@_ && $_[0] =~ /^\+(\d+)$/ ? : |
93
|
1 |
3 |
if @_ == 1 and $_[0] eq ':none' |
94
|
0 |
3 |
unless @_ |
101
|
0 |
3 |
if ($_ eq ':all') { } |
|
1 |
2 |
elsif (/^\:(.*)/) { } |
|
1 |
1 |
elsif ($own_functions{$_}) { } |
106
|
1 |
0 |
if (exists $tags{$1}) { } |
|
0 |
0 |
elsif (my $subset = $SUBSET{$1}) { } |
119
|
0 |
1 |
unless my $mod = $IMPORT_FROM{$_} |
135
|
0 |
1 |
if $@ |
141
|
0 |
0 |
if $@ |
150
|
0 |
1 |
if $@ |
160
|
1 |
34 |
ref $mods eq 'ARRAY' ? : |
169
|
2 |
1 |
if (@_) { } |
172
|
1 |
1 |
$sel =~ /^:(\w+)/ ? : |
182
|
0 |
23 |
if $@ |
183
|
2 |
21 |
unless $pkg->can('import') |
191
|
3 |
0 |
wantarray ? : |
208
|
0 |
0 |
if (defined $val) { } |