line |
true |
false |
branch |
85
|
0 |
4 |
unless my $r = $tags{$tag} |
86
|
0 |
4 |
ref $r eq 'ARRAY' ? : |
96
|
0 |
4 |
@_ && $_[0] =~ /^\+(\d+)$/ ? : |
97
|
1 |
3 |
if @_ == 1 and $_[0] eq ':none' |
98
|
0 |
3 |
unless @_ |
105
|
0 |
3 |
if ($_ eq ':all') { } |
|
1 |
2 |
elsif (/^\:(.*)/) { } |
|
1 |
1 |
elsif ($own_functions{$_}) { } |
110
|
1 |
0 |
if (exists $tags{$1}) { } |
|
0 |
0 |
elsif (my $subset = $SUBSET{$1}) { } |
123
|
0 |
1 |
unless my $mod = $IMPORT_FROM{$_} |
139
|
0 |
1 |
if $@ |
145
|
0 |
0 |
if $@ |
154
|
0 |
1 |
if $@ |
164
|
1 |
35 |
ref $mods eq 'ARRAY' ? : |
173
|
2 |
1 |
if (@_) { } |
176
|
1 |
1 |
$sel =~ /^:(\w+)/ ? : |
186
|
0 |
23 |
if $@ |
187
|
2 |
21 |
unless $pkg->can('import') |
195
|
3 |
0 |
wantarray ? : |
212
|
0 |
0 |
if (defined $val) { } |