| line |
true |
false |
branch |
|
25
|
0 |
12 |
$name =~ /::/ ? : |
|
39
|
21 |
0 |
if $args =~ /\[(.*)\];/s |
|
49
|
1 |
11 |
if (my $maxlen = $$config{'maxlen'}) |
|
51
|
1 |
1 |
if (length $_[0] > $maxlen) { } |
|
60
|
12 |
0 |
if ($$config{'warn'}) { } |
|
62
|
2 |
30 |
$trunc ? : |
|
67
|
0 |
0 |
$trunc ? : |
|
77
|
10 |
2 |
if ($$config{'caller'}) { } |
|
81
|
2 |
12 |
if ($st) { } |
|
90
|
3 |
9 |
defined $sub ? : |
|
114
|
11 |
5 |
if (not defined wantarray) { } |
|
|
3 |
2 |
elsif (wantarray) { } |
|
145
|
8 |
12 |
if ($s =~ /^:\w/) |
|
153
|
0 |
12 |
unless ($cref) |
|
154
|
0 |
0 |
if $^W |
|
180
|
4 |
0 |
if (my $e = $ENV{'PERL5DEBUGTRACE'}) |
|
182
|
4 |
4 |
unless $c |
|
193
|
4 |
8 |
if (/^:no(\w+)$/ and exists $$config{$1}) { } |
|
|
7 |
1 |
elsif (/^:(\w+)$/ and exists $$config{$1}) { } |
|
|
1 |
0 |
elsif (/^:(\w+)\s*\((-?\d+)\)$/ and exists $$config{$1}) { } |