| line |
true |
false |
branch |
|
20
|
0 |
30 |
unless (@args) |
|
21
|
0 |
0 |
$func eq 'warn' ? : |
|
25
|
28 |
2 |
unless ($self =~ s/\n \z//msx) |
|
72
|
28 |
28 |
if ($func eq 'warn' or $func eq 'die') { } |
|
74
|
30 |
0 |
if defined $^S |
|
93
|
30 |
0 |
if defined $^S |
|
110
|
7 |
9 |
if (@args) { } |
|
112
|
2 |
5 |
if @bads |
|
117
|
5 |
0 |
if grep {$_ eq 'global';} @args |
|
126
|
5 |
9 |
@_ ? : |
|
131
|
8 |
48 |
if defined *{$pkg . '::' . $func;}{'CODE'} |
|
137
|
7 |
7 |
if $pkg ne 'main' |
|
146
|
2 |
8 |
if defined *{'CORE::GLOBAL::' . $func;}{'CODE'} |
|
149
|
2 |
8 |
if defined *{$pkg . '::' . $func;}{'CODE'} |
|
151
|
2 |
8 |
if defined *{$pkg . '::' . $func;}{'CODE'} |
|
163
|
1 |
5 |
if @args |
|
170
|
0 |
5 |
@_ ? : |
|
175
|
8 |
12 |
if ($$KEEP{$pkg}{$func}) { } |
|
180
|
8 |
4 |
if defined *{$pkg . '::' . $func;}{'CODE'} |
|
191
|
2 |
8 |
if ($$KEEP{'CORE::GLOBAL'}{$func}) { } |
|
|
4 |
4 |
elsif (defined *{'CORE::GLOBAL::' . $func;}{'CODE'}) { } |