| line |
true |
false |
branch |
|
314
|
0 |
0 |
$_[0] ? : |
|
315
|
0 |
0 |
$_[0] =~ /^([0-9]+)$/ ? : |
|
316
|
0 |
0 |
length $_[0] ? : |
|
361
|
214 |
17 |
defined $$p{$_[0]} ? : |
|
367
|
218 |
0 |
unless (&sw('expand_duprefs')) |
|
368
|
50 |
168 |
if (ref $v and not &SCALAR($v)) |
|
369
|
0 |
50 |
if ($p->{'__P_seen'}{$v}) { } |
|
374
|
218 |
0 |
if ($nargs) |
|
376
|
155 |
63 |
if ($nargs > 1) |
|
378
|
9 |
209 |
unless defined $v |
|
380
|
163 |
46 |
if (1 > $lvl-- or not $rv) { } |
|
383
|
68 |
95 |
if $_[0] =~ /^[-+]?[0-9]+\.?\z/ |
|
385
|
68 |
27 |
if $_[1] |
|
386
|
9 |
18 |
if 1 == length $_[0] |
|
387
|
0 |
18 |
if $_[0] =~ /^(?:[+-]?(?:\.\d+)
|(?:\d+\.\d+))\z/x |
|
389
|
4 |
14 |
if substr($_[0], 0, 5) eq 'HASH(' |
|
391
|
0 |
14 |
if substr($_[0], 0, 6) eq 'ARRAY(' |
|
394
|
0 |
14 |
if (substr($_[0], 0, 7) eq 'SCALAR(') |
|
396
|
0 |
14 |
if ref $_[0] |
|
400
|
163 |
214 |
if $fmt = &$_($v, $ro) |
|
405
|
0 |
46 |
if 0 <= index($v, '=') and $v =~ /([\w:]+)=([cc\w][\w:]+)/ |
|
409
|
39 |
9 |
unless ref $v->{$a} cmp ref $v->{$b} |
|
431
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
432
|
46 |
0 |
if (my $act = $actions{$rv}) { } |
|
438
|
0 |
14 |
unless @_ == 1 |
|
440
|
8 |
6 |
if (&blessed($mod_dflts{$caller})) { } |
|
|
0 |
6 |
elsif (&HASH($mod_dflts{$caller})) { } |
|
453
|
0 |
9 |
unless (defined $_[0]) |
|
458
|
1 |
8 |
ref $_[0] eq 'P' ? : |
|
463
|
7 |
11 |
defined $$p{$_[0]} ? : |
|
466
|
9 |
0 |
unless ref $p->{'__P_seen'} |
|
469
|
9 |
0 |
if exists $p->{'__P_seen'} |
|
476
|
0 |
9 |
if (&HASH() eq $rv) |
|
478
|
0 |
0 |
if exists $params->{'depth'} |
|
480
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
484
|
0 |
9 |
if ($rv eq &GLOB() or $rv eq &IO()) { } |
|
489
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
501
|
9 |
0 |
defined wantarray ? : |
|
514
|
0 |
9 |
if ord substr($res, -1) == 131 |
|
517
|
0 |
9 |
if (not $fh || $ctx) { } |
|
518
|
0 |
0 |
if $fh = \*STDERR |
|
522
|
9 |
0 |
if not $explicit_out and $ctx == 1 |
|
525
|
0 |
0 |
!$ctx && (!$\ || $\ ne "\n") ? : |
|
531
|
0 |
0 |
ref $_[0] eq 'P' ? : |
|
533
|
0 |
0 |
if ref $p |
|
538
|
0 |
6 |
ref $_[0] eq 'P' ? : |
|
540
|
0 |
6 |
if caller eq 'P' |
|
541
|
4 |
2 |
if (@args) |
|
548
|
5 |
0 |
if (0 == index($_, ':')) { } |
|
552
|
4 |
1 |
if (($l = index($_, '=')) > 0) |
|
556
|
1 |
4 |
if ($tag eq 'default' and not $got_default) { } |
|
|
0 |
4 |
elsif ($tag eq '--') { } |
|
566
|
0 |
4 |
unless exists $mod_dflts{''}{$tag} |
|
567
|
4 |
0 |
defined "$val" ? : |
|
586
|
0 |
1 |
unless &HASH($args) |
|
588
|
1 |
0 |
if (defined $_dflts{$_}) { } |