| line |
true |
false |
branch |
|
307
|
0 |
0 |
$_[0] ? : |
|
308
|
0 |
0 |
$_[0] =~ /^([0-9]+)$/ ? : |
|
309
|
0 |
0 |
length $_[0] ? : |
|
334
|
0 |
68 |
if ($ic >= 2 and $vl - $ic > 0) |
|
338
|
0 |
68 |
if ($v =~ /^([\x00-\x1f])(\w*)$/) |
|
354
|
214 |
17 |
defined $$p{$_[0]} ? : |
|
360
|
218 |
0 |
unless (&sw('expand_duprefs')) |
|
361
|
50 |
168 |
if (ref $v and not &SCALAR($v)) |
|
362
|
0 |
50 |
if ($p->{'__P_seen'}{$v}) { } |
|
367
|
218 |
0 |
if ($nargs) |
|
369
|
155 |
63 |
if ($nargs > 1) |
|
371
|
9 |
209 |
unless defined $v |
|
373
|
163 |
46 |
if (1 > $lvl-- or not $rv) { } |
|
376
|
68 |
95 |
if $_[0] =~ /^[-+]?[0-9]+\.?\z/ |
|
378
|
9 |
18 |
if 1 == length $_[0] |
|
379
|
0 |
18 |
if $_[0] =~ /^(?:[+-]?(?:\.\d+)
|(?:\d+\.\d+))\z/x |
|
381
|
4 |
14 |
if substr($_[0], 0, 5) eq 'HASH(' |
|
383
|
0 |
14 |
if substr($_[0], 0, 6) eq 'ARRAY(' |
|
386
|
0 |
14 |
if (substr($_[0], 0, 7) eq 'SCALAR(') |
|
388
|
0 |
14 |
if ref $_[0] |
|
392
|
163 |
214 |
if $fmt = &$_($v, $ro) |
|
397
|
0 |
46 |
if 0 <= index($v, '=') and $v =~ /([\w:]+)=([cc\w][\w:]+)/ |
|
401
|
45 |
9 |
unless ref $v->{$a} cmp ref $v->{$b} |
|
423
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
424
|
46 |
0 |
if (my $act = $actions{$rv}) { } |
|
430
|
0 |
14 |
unless @_ == 1 |
|
432
|
8 |
6 |
if (&blessed($mod_dflts{$caller})) { } |
|
|
0 |
6 |
elsif (&HASH($mod_dflts{$caller})) { } |
|
445
|
0 |
9 |
unless (defined $_[0]) |
|
450
|
1 |
8 |
ref $_[0] eq 'P' ? : |
|
455
|
7 |
11 |
defined $$p{$_[0]} ? : |
|
458
|
9 |
0 |
unless ref $p->{'__P_seen'} |
|
461
|
9 |
0 |
if exists $p->{'__P_seen'} |
|
468
|
0 |
9 |
if (&HASH() eq $rv) |
|
470
|
0 |
0 |
if exists $params->{'depth'} |
|
472
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
476
|
0 |
9 |
if ($rv eq &GLOB() or $rv eq &IO()) { } |
|
481
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
493
|
9 |
0 |
defined wantarray ? : |
|
495
|
0 |
9 |
if ord substr($res, -1) == 131 |
|
498
|
0 |
9 |
if (not $fh || $ctx) { } |
|
499
|
0 |
0 |
if $fh = \*STDERR |
|
503
|
9 |
0 |
if not $explicit_out and $ctx == 1 |
|
506
|
0 |
0 |
!$ctx && (!$\ || $\ ne "\n") ? : |
|
512
|
0 |
0 |
ref $_[0] eq 'P' ? : |
|
514
|
0 |
0 |
if ref $p |
|
519
|
0 |
6 |
ref $_[0] eq 'P' ? : |
|
521
|
0 |
6 |
if caller eq 'P' |
|
522
|
4 |
2 |
if (@args) |
|
529
|
5 |
0 |
if (0 == index($_, ':')) { } |
|
533
|
4 |
1 |
if (($l = index($_, '=')) > 0) |
|
537
|
1 |
4 |
if ($tag eq 'default' and not $got_default) { } |
|
|
0 |
4 |
elsif ($tag eq '--') { } |
|
547
|
0 |
4 |
unless exists $mod_dflts{''}{$tag} |
|
548
|
4 |
0 |
defined "$val" ? : |
|
567
|
0 |
1 |
unless &HASH($args) |
|
569
|
1 |
0 |
if (defined $_dflts{$_}) { } |