| line |
true |
false |
branch |
|
134
|
0 |
0 |
@_ ? : |
|
135
|
0 |
0 |
@_ ? : |
|
149
|
0 |
6 |
unless defined $_[0] |
|
151
|
0 |
6 |
unless $end > 2 |
|
158
|
18 |
2 |
ref $var && 1 + index($var, $type . '(') ? : |
|
162
|
0 |
10 |
unless defined $arg |
|
164
|
0 |
10 |
unless $ref_arg |
|
165
|
4 |
6 |
$ref_arg && !$type_lens{$ref_arg} ? : |
|
167
|
4 |
2 |
$ref_arg . '=' eq substr($arg, 0, $len + 1) ? : |
|
171
|
0 |
5 |
if $@ |
|
277
|
5 |
4 |
@_ ? : |
|
|
3 |
1 |
@_ ? : |
|
|
0 |
1 |
@_ ? : |
|
|
10 |
4 |
@_ ? : |
|
|
0 |
0 |
@_ ? : |
|
|
2 |
1 |
@_ ? : |
|
|
0 |
1 |
@_ ? : |
|
401
|
10 |
10 |
unless defined $field and defined $argp |
|
403
|
0 |
10 |
if 1 + ($offset = rindex($field, "::")) |
|
409
|
0 |
10 |
unless defined $field |
|
410
|
10 |
0 |
if ($h = &HASH($argp)) { } |
|
|
0 |
0 |
elsif ($h = &ARRAY($argp)) { } |
|
411
|
4 |
6 |
unless exists $h->{$field} |
|
414
|
0 |
0 |
unless $field =~ /^[-\d]+$/ and exists $argp->[$field] |
|
418
|
0 |
6 |
if @_ |
|
428
|
0 |
0 |
unless ($msgs{$loc}++) |
|
438
|
0 |
0 |
unless defined $argp |
|
440
|
0 |
0 |
if 1 + ($offset = rindex($field, "::")) |
|
447
|
0 |
0 |
$h ? : |
|
|
0 |
0 |
$c ? : |
|
449
|
0 |
0 |
if @_ |
|
455
|
0 |
0 |
@_ ? : |
|
|
0 |
0 |
unless (caller(@_ ? 1 + $_[0] : 1))[3] |
|
460
|
0 |
0 |
unless "ARRAY" eq ref $_[0] |
|
462
|
0 |
0 |
unless "HASH" eq ref $_[0] |
|
470
|
0 |
0 |
ref $_[0] || $_[0] eq 'Types::Core' ? : |
|
472
|
0 |
0 |
if @_ |
|
473
|
0 |
0 |
$objref eq $objname ? : |
|
562
|
0 |
0 |
@_ ? : |
|
563
|
0 |
0 |
unless defined $_ |
|
565
|
0 |
0 |
/$numRE/ ? : |
|
571
|
0 |
0 |
@_ >= 2 ? : |
|
572
|
0 |
0 |
@_ ? : |
|
573
|
0 |
0 |
if $dbg |
|
574
|
0 |
0 |
unless defined $a and defined $b |
|
577
|
0 |
0 |
unless defined $ra and defined $rb |
|
579
|
0 |
0 |
unless $dta and $dtb |
|
580
|
0 |
0 |
if ($dbg) |
|
585
|
0 |
0 |
if $ta ne $tb |
|
587
|
0 |
0 |
unless ($ta or $tb) |
|
589
|
0 |
0 |
&isnum($a) && &isnum($b) ? : |
|
592
|
0 |
0 |
if $dbg |
|
597
|
0 |
0 |
if ($dta ^ $dtb) |
|
600
|
0 |
0 |
unless ($dta and $dtb) |
|
605
|
0 |
0 |
if ($dra ^ $drb) { } |
|
|
0 |
0 |
elsif ($dra and $drb and $ra ne $rb) { } |
|
609
|
0 |
0 |
if ($ta eq &SCALAR()) { } |
|
|
0 |
0 |
elsif ($ta eq &ARRAY()) { } |
|
|
0 |
0 |
elsif ($ta eq &HASH()) { } |
|
613
|
0 |
0 |
if $dbg |
|
614
|
0 |
0 |
if $r = @$a <=> @$b |
|
618
|
0 |
0 |
if $dbg |
|
622
|
0 |
0 |
if $dbg |
|
623
|
0 |
0 |
if $r |
|
630
|
0 |
0 |
if $dbg |
|
631
|
0 |
0 |
if $r |
|
634
|
0 |
0 |
if $dbg |
|
635
|
0 |
0 |
if $r |
|
640
|
0 |
0 |
if $dbg |
|
643
|
0 |
0 |
if $dbg |