| 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) { }
|
|
1029
|
2 |
418 |
unless defined $name and length $name
|
|
1043
|
757 |
114 |
if (defined $title) { }
|
|
1045
|
10 |
747 |
unless length $title
|
|
1080
|
1 |
30 |
if @tag_value_pairs % 2
|
|
1094
|
1 |
29 |
if ($Carp::Proxy::EVAL_ERROR)
|
|
1112
|
0 |
30 |
unless open my $fd, '>', $string_ref
|
|
1131
|
0 |
30 |
unless close $fd
|
|
1178
|
1 |
12 |
unless defined $subr
|
|
1189
|
8 |
4 |
unless $where
|
|
1229
|
0 |
256 |
@_ && defined $_[0] && $_[0] =~ /\A \d+ \z/x ? :
|
|
1233
|
1 |
255 |
if (0 == $child_error)
|
|
1241
|
254 |
1 |
if ($signal)
|
|
1251
|
128 |
126 |
defined $sig_name ? :
|
|
|
127 |
127 |
$child_error & $CORE_DUMP ? :
|
|
1275
|
1 |
1 |
unless defined $title
|
|
1285
|
1 |
1 |
unless defined $title
|
|
1303
|
2 |
2 |
if not defined $path or $Carp::Proxy::EVAL_ERROR
|
|
1318
|
4 |
2 |
unless defined $string_errno and length $string_errno
|
|
1321
|
1 |
1 |
unless defined $title
|
|
1331
|
4 |
420 |
if $self->as_yaml
|
|
1351
|
6 |
522 |
unless $where
|
|
1364
|
13 |
527 |
if ($handler_name =~ /\A [*] ( .+ ) [*] \z/x) { }
|
|
1373
|
9 |
518 |
defined $handler_prefix ? :
|
|
1384
|
513 |
961 |
if $coderef
|
|
1405
|
1 |
5 |
unless length $prefix
|
|
1421
|
3 |
5 |
if @args
|
|
1437
|
2 |
3 |
if defined $description and length $description
|
|
1445
|
1 |
4 |
if (defined $hashref and keys %{$hashref;})
|
|
1462
|
2 |
29 |
if length $maintainer
|
|
1484
|
0 |
43 |
if $Carp::Proxy::EVAL_ERROR
|