| line |
true |
false |
branch |
|
15
|
415 |
93 |
exists $core_types{$name} ? : |
|
52
|
5 |
221 |
if ($max and $str_len and $str_len > $max) { } |
|
54
|
1 |
4 |
$preserve eq 'none' ? : |
|
62
|
1 |
4 |
if ($preserve eq 'end') { } |
|
|
1 |
3 |
elsif ($preserve eq 'begin') { } |
|
|
1 |
2 |
elsif ($preserve eq 'extremes') { } |
|
|
1 |
1 |
elsif ($preserve eq 'middle') { } |
|
64
|
0 |
1 |
if $ddp->print_escapes |
|
70
|
0 |
1 |
if $ddp->print_escapes |
|
79
|
0 |
1 |
if ($ddp->print_escapes) |
|
95
|
0 |
1 |
if $ddp->print_escapes |
|
109
|
1 |
220 |
if $ddp->print_escapes |
|
128
|
3 |
223 |
if ($ddp->unicode_charnames) { } |
|
|
1 |
222 |
elsif ($escape_kind eq 'all') { } |
|
130
|
1 |
2 |
if ($escape_kind eq 'all') { } |
|
135
|
2 |
0 |
if exists $target_for{$escape_kind} |
|
143
|
2 |
220 |
if exists $target_for{$escape_kind} |
|
160
|
225 |
1 |
unless $ddp->print_escapes |
|
177
|
0 |
13 |
if $INC{'Sort/Key/Natural.pm'} |
|
178
|
0 |
13 |
if $INC{'Sort/Naturally.pm'} |
|
179
|
0 |
13 |
unless _tryme("use Sort::Key::Natural; 1;") |
|
180
|
0 |
13 |
unless _tryme("use Sort::Naturally; 1;") |
|
185
|
11 |
124 |
unless ($nsort_initialized) |
|
187
|
0 |
11 |
if ($nsort_class eq 'Sort::Key::Natural') { } |
|
|
0 |
11 |
elsif ($nsort_class ne 'core') { } |
|
215
|
0 |
0 |
unless exists $props->{$name} and ref $props->{$name} eq "ARRAY" |
|
218
|
0 |
0 |
if (ref $option) |
|
222
|
0 |
0 |
unless exists $props->{'warnings'} and $props->{'warnings'} |
|
232
|
2817 |
135 |
unless exists $props->{$name} |
|
234
|
135 |
169 |
if $props->{$name} eq $option |
|
245
|
11971 |
576 |
unless exists $props->{$name} |
|
247
|
0 |
576 |
if (my $ref = ref $props->{$name}) |
|
261
|
0 |
1 |
if $ddp and not $ddp->warnings |
|
269
|
4 |
3 |
unless ($caller[0] =~ /\AD(?:DP|ata::Printer)/) |
|
285
|
324 |
3034 |
if (ref $subref_or_string eq 'CODE') { } |
|
302
|
3319 |
39 |
unless $failed |
|
319
|
102 |
12 |
if not $max or @$array_ref <= $max |
|
322
|
6 |
6 |
if ($preserve eq 'begin' or $preserve eq 'end') { } |
|
|
2 |
4 |
elsif ($preserve eq 'extremes') { } |
|
|
2 |
2 |
elsif ($preserve eq 'middle') { } |
|
327
|
4 |
2 |
$preserve eq 'begin' ? : |
|
367
|
10 |
134 |
unless $mro_initialized |
|
369
|
144 |
0 |
if ($mro_initialized > 0) { } |
|
377
|
6 |
138 |
$ddp->class->universal ? : |
|
383
|
0 |
11 |
if ($] < 5.009005) { } |
|
387
|
0 |
0 |
if ($error and index($error, "in \@INC") != -1 and $mro_initialized == 0) |
|
388
|
0 |
0 |
$] < 5.009005 ? : |
|
394
|
0 |
11 |
$error ? : |
|
406
|
108 |
0 |
if $] >= "5.01" |
|
415
|
15 |
23 |
unless $res |
|
421
|
247 |
15 |
if (exists $namespace->{$symbol_name}) |
|
423
|
247 |
0 |
if (ref $entry_ref eq 'GLOB') { } |
|
427
|
0 |
0 |
if ($symbol_kind eq "CODE") |