| line |
true |
false |
branch |
|
63
|
0 |
6 |
unless @_
|
|
65
|
6 |
0 |
exists $sk{$_[0]} ? :
|
|
73
|
0 |
18 |
if exists $sk{$p}
|
|
75
|
1 |
17 |
if ($p eq ':tidy')
|
|
87
|
15 |
22 |
if $_perltidy
|
|
98
|
0 |
22 |
if $s =~ s/\bbless\s*\(\s*/bless (/gm
|
|
103
|
0 |
22 |
unless defined wantarray
|
|
109
|
0 |
15 |
unless $has_perltidy
|
|
132
|
0 |
15 |
unless defined wantarray
|
|
143
|
0 |
0 |
if ($ref eq 'SCALAR' or $ref eq 'REF')
|
|
147
|
0 |
0 |
if ($ref eq 'ARRAY')
|
|
155
|
0 |
0 |
if ($ref eq 'HASH')
|
|
169
|
3 |
4 |
if ($has_perlio and open $fh, '>', \$dump) { }
|
|
185
|
0 |
7 |
unless my @dump = split(/[\r\n]+/, _DDump($_[0], wantarray || $down), 0)
|
|
187
|
3 |
4 |
if (wantarray)
|
|
192
|
3 |
0 |
if (exists $hash{'FLAGS'})
|
|
198
|
0 |
3 |
if $down and ref $_[0]
|
|
204
|
4 |
0 |
if defined wantarray
|
|
214
|
6 |
0 |
@_ ? :
|
|
215
|
1 |
5 |
unless defined $var
|
|
216
|
1 |
4 |
@_ > 1 && $_[1] < length $var ? :
|
|
225
|
11 |
34 |
$_ < 32 || $_ >= 127 ? :
|
|
230
|
0 |
5 |
if wantarray
|
|
232
|
5 |
0 |
if defined wantarray
|