| line |
true |
false |
branch |
|
118
|
0 |
0 |
if (not @_) { } |
|
128
|
0 |
11 |
unless defined $_[0] |
|
130
|
0 |
11 |
unless $end > 2 |
|
137
|
13 |
4 |
ref $var && 1 + index($var, $type . '(') ? : |
|
141
|
0 |
10 |
unless defined $arg |
|
143
|
0 |
10 |
unless $ref_arg |
|
144
|
4 |
6 |
$ref_arg && !$type_lens{$ref_arg} ? : |
|
146
|
4 |
2 |
$ref_arg . '=' eq substr($arg, 0, $len + 1) ? : |
|
150
|
0 |
5 |
if $@ |
|
248
|
7 |
4 |
@_ ? : |
|
|
3 |
1 |
@_ ? : |
|
|
0 |
1 |
@_ ? : |
|
|
5 |
4 |
@_ ? : |
|
|
0 |
0 |
@_ ? : |
|
|
2 |
1 |
@_ ? : |
|
|
0 |
1 |
@_ ? : |
|
372
|
5 |
5 |
unless $field and $arg |
|
374
|
0 |
5 |
if 1 + ($offset = rindex($field, '::')) |
|
379
|
3 |
0 |
$h ? : |
|
380
|
0 |
3 |
if @_ |
|
388
|
5 |
5 |
unless $field and $arg |
|
390
|
0 |
5 |
if 1 + ($offset = rindex($field, '::')) |
|
393
|
3 |
0 |
unless @_ > 0 |
|
401
|
0 |
0 |
@_ ? : |
|
|
0 |
0 |
unless (caller(@_ ? 1 + $_[0] : 1))[3] |
|
406
|
0 |
0 |
unless 'ARRAY' eq ref $_[0] |
|
408
|
0 |
0 |
unless 'HASH' eq ref $_[0] |
|
416
|
0 |
0 |
ref $_[0] || $_[0] eq 'Types::Core' ? : |
|
418
|
0 |
0 |
if @_ |
|
419
|
0 |
0 |
$objref eq $objname ? : |
|
509
|
0 |
0 |
@_ ? : |
|
510
|
0 |
0 |
unless defined $_ |
|
512
|
0 |
0 |
/&numRE/ ? : |
|
519
|
0 |
0 |
@_ == 3 ? : |
|
520
|
0 |
0 |
if $dbg |
|
521
|
0 |
0 |
unless defined $a and defined $b |
|
524
|
0 |
0 |
unless defined $ra and defined $rb |
|
526
|
0 |
0 |
unless $dta and $dtb |
|
527
|
0 |
0 |
if ($dbg) |
|
532
|
0 |
0 |
if $ta ne $tb |
|
534
|
0 |
0 |
unless ($ta or $tb) |
|
536
|
0 |
0 |
&isnum($a) && &isnum($b) ? : |
|
539
|
0 |
0 |
if $dbg |
|
544
|
0 |
0 |
if ($dta ^ $dtb) |
|
547
|
0 |
0 |
unless ($dta and $dtb) |
|
552
|
0 |
0 |
if ($dra ^ $drb) { } |
|
|
0 |
0 |
elsif ($dra and $drb and $ra ne $rb) { } |
|
556
|
0 |
0 |
if ($ta eq &SCALAR()) { } |
|
|
0 |
0 |
elsif ($ta eq &ARRAY()) { } |
|
|
0 |
0 |
elsif ($ta eq &HASH()) { } |
|
560
|
0 |
0 |
if $dbg |
|
561
|
0 |
0 |
if $r = @$a <=> @$b |
|
565
|
0 |
0 |
if $dbg |
|
569
|
0 |
0 |
if $dbg |
|
570
|
0 |
0 |
if $r |
|
577
|
0 |
0 |
if $dbg |
|
578
|
0 |
0 |
if $r |
|
581
|
0 |
0 |
if $dbg |
|
582
|
0 |
0 |
if $r |
|
587
|
0 |
0 |
if $dbg |
|
590
|
0 |
0 |
if $dbg |