| line |
true |
false |
branch |
|
15
|
415 |
93 |
exists $core_types{$name} ? :
|
|
52
|
5 |
232 |
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 |
231 |
if $ddp->print_escapes
|
|
128
|
3 |
234 |
if ($ddp->unicode_charnames) { }
|
|
|
1 |
233 |
elsif ($escape_kind eq 'all') { }
|
|
130
|
1 |
2 |
if ($escape_kind eq 'all') { }
|
|
135
|
2 |
0 |
if exists $target_for{$escape_kind}
|
|
143
|
2 |
231 |
if exists $target_for{$escape_kind}
|
|
160
|
236 |
1 |
unless $ddp->print_escapes
|
|
177
|
0 |
14 |
if $INC{'Sort/Key/Natural.pm'}
|
|
178
|
0 |
14 |
if $INC{'Sort/Naturally.pm'}
|
|
179
|
0 |
14 |
unless _tryme("use Sort::Key::Natural; 1;")
|
|
180
|
0 |
14 |
unless _tryme("use Sort::Naturally; 1;")
|
|
185
|
12 |
135 |
unless ($nsort_initialized)
|
|
187
|
0 |
12 |
if ($nsort_class eq 'Sort::Key::Natural') { }
|
|
|
0 |
12 |
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
|
2925 |
135 |
unless exists $props->{$name}
|
|
234
|
135 |
169 |
if $props->{$name} eq $option
|
|
245
|
12418 |
588 |
unless exists $props->{$name}
|
|
247
|
0 |
588 |
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
|
336 |
3150 |
if (ref $subref_or_string eq 'CODE') { }
|
|
302
|
3447 |
39 |
unless $failed
|
|
319
|
104 |
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
|
11 |
144 |
unless $mro_initialized
|
|
369
|
155 |
0 |
if ($mro_initialized > 0) { }
|
|
377
|
6 |
149 |
$ddp->class->universal ? :
|
|
383
|
0 |
12 |
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 |
12 |
$error ? :
|
|
406
|
117 |
0 |
if $] >= "5.01"
|
|
415
|
15 |
26 |
unless $res
|
|
421
|
287 |
15 |
if (exists $namespace->{$symbol_name})
|
|
423
|
287 |
0 |
if (ref $entry_ref eq 'GLOB') { }
|
|
427
|
0 |
0 |
if ($symbol_kind eq "CODE")
|