| line |
true |
false |
branch |
|
152
|
58 |
2 |
if (@_ == 1) { } |
|
|
2 |
0 |
elsif (@_ == 2) { } |
|
156
|
1 |
1 |
if ($k eq 'file') { } |
|
|
1 |
0 |
elsif ($k eq 'fh') { } |
|
167
|
0 |
60 |
unless defined $in |
|
173
|
26 |
34 |
if (exists $parsed->{'_'}) |
|
174
|
2 |
24 |
unless @{$parsed->{'_'};} == 1 and $parsed->{'_'}[0] |
|
177
|
5 |
55 |
unless $data_dumper |
|
185
|
54 |
1 |
if (wantarray) { } |
|
188
|
1 |
0 |
if @out > 1 |
|
196
|
0 |
3 |
unless ref $data eq 'ARRAY' |
|
203
|
0 |
3 |
if defined $opts{'fh'} and defined $opts{'file'} |
|
206
|
0 |
3 |
defined $opts{'Deepcopy'} ? : |
|
207
|
0 |
3 |
defined $opts{'Useqq'} ? : |
|
208
|
0 |
3 |
defined $opts{'Quotekeys'} ? : |
|
209
|
0 |
3 |
defined $opts{'Sortkeys'} ? : |
|
210
|
0 |
3 |
if defined $opts{'Indent'} |
|
214
|
0 |
3 |
unless $str =~ /;\s*$/ |
|
217
|
1 |
2 |
if (defined $opts{'file'}) |
|
219
|
0 |
1 |
unless open $fh, '>', $opts{'file'} |
|
222
|
2 |
1 |
if (defined $fh) |
|
225
|
0 |
2 |
unless $str =~ /\n\z/ |
|
227
|
1 |
2 |
if (defined $opts{'file'}) |