| line |
true |
false |
branch |
|
309
|
0 |
0 |
$_[0] ? : |
|
310
|
0 |
0 |
$_[0] =~ /^([0-9]+)$/ ? : |
|
311
|
0 |
0 |
length $_[0] ? : |
|
336
|
0 |
68 |
if ($ic >= 2 and $vl - $ic > 0) |
|
340
|
0 |
68 |
if ($v =~ /^([\x00-\x1f])(\w*)$/) |
|
356
|
214 |
17 |
defined $$p{$_[0]} ? : |
|
362
|
218 |
0 |
unless (&sw('expand_duprefs')) |
|
363
|
50 |
168 |
if (ref $v and not &SCALAR($v)) |
|
364
|
0 |
50 |
if ($p->{'__P_seen'}{$v}) { } |
|
369
|
218 |
0 |
if ($nargs) |
|
371
|
155 |
63 |
if ($nargs > 1) |
|
373
|
9 |
209 |
unless defined $v |
|
375
|
163 |
46 |
if (1 > $lvl-- or not $rv) { } |
|
378
|
68 |
95 |
if $_[0] =~ /^[-+]?[0-9]+\.?\z/ |
|
380
|
9 |
18 |
if 1 == length $_[0] |
|
381
|
0 |
18 |
if $_[0] =~ /^(?:[+-]?(?:\.\d+)
|(?:\d+\.\d+))\z/x |
|
383
|
4 |
14 |
if substr($_[0], 0, 5) eq 'HASH(' |
|
385
|
0 |
14 |
if substr($_[0], 0, 6) eq 'ARRAY(' |
|
388
|
0 |
14 |
if (substr($_[0], 0, 7) eq 'SCALAR(') |
|
390
|
0 |
14 |
if ref $_[0] |
|
394
|
163 |
214 |
if $fmt = &$_($v, $ro) |
|
399
|
0 |
46 |
if 0 <= index($v, '=') and $v =~ /([\w:]+)=([cc\w][\w:]+)/ |
|
403
|
45 |
9 |
unless ref $v->{$a} cmp ref $v->{$b} |
|
425
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
|
0 |
46 |
$p->{'implicit_io'} ? : |
|
426
|
46 |
0 |
if (my $act = $actions{$rv}) { } |
|
432
|
0 |
14 |
unless @_ == 1 |
|
434
|
8 |
6 |
if (&blessed($mod_dflts{$caller})) { } |
|
|
0 |
6 |
elsif (&HASH($mod_dflts{$caller})) { } |
|
447
|
0 |
9 |
unless (defined $_[0]) |
|
452
|
1 |
8 |
ref $_[0] eq 'P' ? : |
|
457
|
7 |
11 |
defined $$p{$_[0]} ? : |
|
460
|
9 |
0 |
unless ref $p->{'__P_seen'} |
|
463
|
9 |
0 |
if exists $p->{'__P_seen'} |
|
470
|
0 |
9 |
if (&HASH() eq $rv) |
|
472
|
0 |
0 |
if exists $params->{'depth'} |
|
474
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
478
|
0 |
9 |
if ($rv eq &GLOB() or $rv eq &IO()) { } |
|
483
|
0 |
9 |
if (&ARRAY() eq $rv) |
|
495
|
9 |
0 |
defined wantarray ? : |
|
497
|
0 |
9 |
if ord substr($res, -1) == 131 |
|
500
|
0 |
9 |
if (not $fh || $ctx) { } |
|
501
|
0 |
0 |
if $fh = \*STDERR |
|
505
|
9 |
0 |
if not $explicit_out and $ctx == 1 |
|
508
|
0 |
0 |
!$ctx && (!$\ || $\ ne "\n") ? : |
|
514
|
0 |
0 |
ref $_[0] eq 'P' ? : |
|
516
|
0 |
0 |
if ref $p |
|
521
|
0 |
6 |
ref $_[0] eq 'P' ? : |
|
523
|
0 |
6 |
if caller eq 'P' |
|
524
|
4 |
2 |
if (@args) |
|
531
|
5 |
0 |
if (0 == index($_, ':')) { } |
|
535
|
4 |
1 |
if (($l = index($_, '=')) > 0) |
|
539
|
1 |
4 |
if ($tag eq 'default' and not $got_default) { } |
|
|
0 |
4 |
elsif ($tag eq '--') { } |
|
549
|
0 |
4 |
unless exists $mod_dflts{''}{$tag} |
|
550
|
4 |
0 |
defined "$val" ? : |
|
569
|
0 |
1 |
unless &HASH($args) |
|
571
|
1 |
0 |
if (defined $_dflts{$_}) { } |