| line |
true |
false |
branch |
|
296
|
2 |
5 |
if $indent < 0
|
|
313
|
4 |
13 |
if $columns <= 0
|
|
330
|
8 |
77 |
if 'CODE' ne ref $context and not $context =~ /$VALID_CONTEXT_REX/
|
|
348
|
6 |
38 |
if 'CODE' ne ref $disposition and not $disposition =~ /$VALID_DISPOSITION_REX/
|
|
366
|
2 |
5 |
if $indent < 0
|
|
402
|
7 |
20 |
ref $value ? :
|
|
|
4 |
27 |
!defined($value) ? :
|
|
431
|
19 |
136 |
if (not @proxy_attrlist_pairs) { }
|
|
|
1 |
135 |
elsif (1 == @proxy_attrlist_pairs) { }
|
|
|
1 |
134 |
elsif (@proxy_attrlist_pairs % 2) { }
|
|
468
|
1 |
1 |
unless defined $attr_val_hashref
|
|
529
|
10 |
584 |
if $handler_name eq '*configuration*'
|
|
545
|
5 |
521 |
if defined $begin_hook
|
|
553
|
5 |
450 |
if defined $end_hook
|
|
565
|
1 |
454 |
if (not defined $disposition) { }
|
|
|
8 |
446 |
elsif ('CODE' eq ref $disposition) { }
|
|
|
2 |
444 |
elsif ('warn' eq $disposition) { }
|
|
|
423 |
21 |
elsif ('die' eq $disposition) { }
|
|
|
1 |
20 |
elsif ('return' ne $disposition) { }
|
|
644
|
2 |
6 |
defined $section->[2] ? :
|
|
664
|
2 |
458 |
if (not defined $context) { }
|
|
|
4 |
454 |
elsif ('CODE' eq ref $context) { }
|
|
|
4 |
450 |
elsif ('die' eq $context) { }
|
|
|
6 |
444 |
elsif ('croak' eq $context) { }
|
|
|
387 |
57 |
elsif ('confess' eq $context) { }
|
|
|
46 |
11 |
elsif ('internals' eq $context) { }
|
|
|
2 |
9 |
elsif ('none' ne $context) { }
|
|
702
|
1 |
5 |
unless (defined $file)
|
|
755
|
1 |
1213 |
unless defined $sub
|
|
759
|
401 |
812 |
if $sub eq $fqp
|
|
776
|
1 |
9 |
unless defined $subr
|
|
813
|
0 |
2133 |
$Carp::Proxy::EVAL_ERROR ? :
|
|
860
|
1352 |
348 |
$self->columns >= $length_with_file ? :
|
|
876
|
386 |
46 |
defined $starting_frame ? :
|
|
886
|
432 |
1690 |
unless defined $file
|
|
921
|
1 |
405 |
if $content =~ /\A \s* \z/x
|
|
935
|
1 |
442 |
if $p =~ /\A \s* \z/x
|
|
959
|
3855 |
145 |
if (length($line) + 1 + length($w) <= $columns) { }
|
|
1028
|
2 |
418 |
unless defined $name and length $name
|
|
1042
|
757 |
114 |
if (defined $title) { }
|
|
1044
|
10 |
747 |
unless length $title
|
|
1079
|
1 |
30 |
if @tag_value_pairs % 2
|
|
1093
|
1 |
29 |
if ($Carp::Proxy::EVAL_ERROR)
|
|
1111
|
0 |
30 |
unless open my $fd, '>', $string_ref
|
|
1130
|
0 |
30 |
unless close $fd
|
|
1177
|
1 |
12 |
unless defined $subr
|
|
1188
|
8 |
4 |
unless $where
|
|
1228
|
0 |
256 |
@_ && defined $_[0] && $_[0] =~ /\A \d+ \z/x ? :
|
|
1232
|
1 |
255 |
if (0 == $child_error)
|
|
1240
|
254 |
1 |
if ($signal)
|
|
1250
|
128 |
126 |
defined $sig_name ? :
|
|
|
127 |
127 |
$child_error & $CORE_DUMP ? :
|
|
1274
|
1 |
1 |
unless defined $title
|
|
1284
|
1 |
1 |
unless defined $title
|
|
1302
|
2 |
2 |
if not defined $path or $Carp::Proxy::EVAL_ERROR
|
|
1317
|
4 |
2 |
unless defined $string_errno and length $string_errno
|
|
1320
|
1 |
1 |
unless defined $title
|
|
1330
|
4 |
420 |
if $self->as_yaml
|
|
1350
|
6 |
522 |
unless $where
|
|
1363
|
13 |
527 |
if ($handler_name =~ /\A [*] ( .+ ) [*] \z/x) { }
|
|
1372
|
9 |
518 |
defined $handler_prefix ? :
|
|
1383
|
513 |
961 |
if $coderef
|
|
1404
|
1 |
5 |
unless length $prefix
|
|
1420
|
3 |
5 |
if @args
|
|
1436
|
2 |
3 |
if defined $description and length $description
|
|
1444
|
1 |
4 |
if (defined $hashref and keys %{$hashref;})
|
|
1461
|
2 |
29 |
if length $maintainer
|
|
1483
|
0 |
43 |
if $Carp::Proxy::EVAL_ERROR
|