| line |
true |
false |
branch |
|
13
|
2 |
0 |
unless defined $ddc |
|
14
|
0 |
0 |
unless ($ddc || '') =~ /^[jd]dc$/ |
|
45
|
20 |
0 |
if $dd->can("Trailingcomma") |
|
71
|
0 |
0 |
if ref $self and $opts and local(@{$self;}{keys %$opts}) = values %$opts, 1 and $opts->{'indent_by'} |
|
72
|
39 |
0 |
unless ref $self |
|
91
|
30 |
317 |
unless $self->{'expand_seen'} |
|
93
|
317 |
30 |
$self->{'expand_path'} ? : |
|
|
314 |
33 |
defined $p ? : |
|
96
|
107 |
240 |
if (ref $data) |
|
97
|
2 |
105 |
if (my $seen_path = $self->{'expand_seen'}{$data}) { } |
|
104
|
46 |
299 |
if (ref $data eq 'HASH') { } |
|
|
55 |
244 |
elsif (ref $data eq 'ARRAY') { } |
|
|
3 |
482 |
elsif (&blessed($data) and my $ret = $self->_expand_blessed($data)) { } |
|
118
|
207 |
34 |
if (my($string) = $thing =~ /^"(.*)"$/) |
|
119
|
9 |
198 |
$string =~ /^-[a-zA-Z]\w*$/ ? : |
|
126
|
3 |
0 |
unless $_ eq "ARRAY" |
|
|
0 |
3 |
unless grep {$_ eq "HASH" unless $_ eq "ARRAY";} &reftype($blessed) |
|
127
|
0 |
3 |
&reftype($blessed) eq 'ARRAY' ? : |
|
133
|
0 |
30 |
unless $tfspec |
|
142
|
43 |
271 |
if ($type eq 'hash') { } |
|
|
52 |
219 |
elsif ($type eq 'array') { } |
|
160
|
0 |
0 |
if (ref $tf eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $tf eq 'HASH') { } |
|
163
|
0 |
0 |
if @match > @$path |
|
165
|
0 |
0 |
unless defined(my $m = $match[$idx]) |
|
167
|
0 |
0 |
if (not ref $m) { } |
|
|
0 |
0 |
elsif (ref $m eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $m eq 'CODE') { } |
|
168
|
0 |
0 |
unless $rpv eq $m |
|
170
|
0 |
0 |
unless $rpv =~ /$m/ |
|
173
|
0 |
0 |
unless &$m($rpv) |
|
179
|
0 |
0 |
unless $tf = $tf->{$type} || $tf->{'_'} |
|
183
|
0 |
0 |
unless $self->$tf($type, $payload, $path) |
|
206
|
0 |
1086 |
if (not $self->{'vertical'} and $self->width <= 0) |
|
219
|
0 |
0 |
if (@plain == @$payload) |
|
221
|
0 |
0 |
if $self->{'oneline'} or length $try <= $self->width |
|
233
|
30 |
371 |
if $el->[0] eq "key" |
|
239
|
0 |
172 |
if ($self->{'vertical'}) |
|
244
|
0 |
172 |
unless my(@pl) = @$payload |
|
254
|
167 |
5 |
unless (grep /\n/, @oneline) |
|
256
|
125 |
42 |
if $self->{'oneline'} or length $try <= $self->width |
|
259
|
12 |
35 |
if (@$payload == 1) |
|
263
|
3 |
32 |
if (@$payload == 2 and $payload->[0][0] eq "key") |
|
269
|
3 |
0 |
$s =~ /\A(.{0,${\$self->width;}})(?:\n|\Z)/ ? : |
|
281
|
190 |
3 |
unless ($f =~ /\n/) |
|
284
|
110 |
80 |
if (length $f <= $spare) |
|
288
|
65 |
15 |
if (length $f <= $self->width) |
|
299
|
18 |
0 |
if ($spare > 0 and $f =~ s/^(.{0,$spare})\n//ms) |
|
302
|
18 |
0 |
if @bits |
|
306
|
18 |
0 |
if ($f =~ s/(?:\A|\n)(.{0,${\$self->width;}})\Z//ms) |
|
310
|
15 |
3 |
if length $f |
|
312
|
32 |
0 |
if @bits |
|
321
|
248 |
17 |
$key =~ /^-?[a-zA-Z_]\w*$/ ? : |
|
331
|
0 |
199 |
unless @$keys |
|
336
|
0 |
199 |
if ($self->{'vertical'}) |
|
347
|
163 |
36 |
if $self->{'oneline'} |
|
348
|
7 |
29 |
if not $oneline =~ /\n/ and length $oneline <= $self->width |
|
354
|
43 |
7 |
$s =~ /\A(.{0,$width})(?:\n|\Z)/ ? : |
|
360
|
16 |
13 |
if (@f == 1) |
|
374
|
8 |
482 |
$str =~ /[\\']/ ? : |
|
375
|
0 |
490 |
$self->{'vertical'} ? : |
|
376
|
486 |
4 |
if length $str <= $w |
|
390
|
4 |
27 |
unless @lines |
|
392
|
21 |
6 |
$lines[-1] =~ /^[\}\]\)]/ ? : |
|
394
|
13 |
14 |
$l eq '{' ? : |
|
411
|
1 |
0 |
if ($_->[0] eq 'key') { } |
|
|
0 |
0 |
elsif ($_->[0] eq 'idx') { } |
|
413
|
1 |
0 |
if ($_->[1] eq $quoted) { } |