line |
true |
false |
branch |
82
|
0 |
4 |
unless my $r = $tags{$tag} |
83
|
0 |
4 |
ref $r eq 'ARRAY' ? : |
93
|
0 |
4 |
@_ && $_[0] =~ /^\+(\d+)$/ ? : |
94
|
1 |
3 |
if @_ == 1 and $_[0] eq ':none' |
95
|
0 |
3 |
unless @_ |
102
|
0 |
3 |
if ($_ eq ':all') { } |
|
1 |
2 |
elsif (/^\:(.*)/) { } |
|
1 |
1 |
elsif ($own_functions{$_}) { } |
107
|
1 |
0 |
if (exists $tags{$1}) { } |
|
0 |
0 |
elsif (my $subset = $SUBSET{$1}) { } |
120
|
0 |
1 |
unless my $mod = $IMPORT_FROM{$_} |
136
|
0 |
1 |
if $@ |
142
|
0 |
0 |
if $@ |
151
|
0 |
1 |
if $@ |
161
|
1 |
35 |
ref $mods eq 'ARRAY' ? : |
170
|
2 |
1 |
if (@_) { } |
173
|
1 |
1 |
$sel =~ /^:(\w+)/ ? : |
183
|
0 |
23 |
if $@ |
184
|
2 |
21 |
unless $pkg->can('import') |
192
|
3 |
0 |
wantarray ? : |
209
|
0 |
0 |
if (defined $val) { } |