| line |
true |
false |
branch |
|
13
|
0 |
4 |
if $] eq '5.006' |
|
45
|
3 |
3 |
if (@syms == @_) { } |
|
82
|
0 |
0 |
if $sub =~ /^\(eval/ |
|
107
|
0 |
8 |
if $sub =~ /^\(eval/ |
|
147
|
0 |
25 |
unless ref $args eq 'ARRAY' |
|
154
|
8 |
17 |
if ($subname ne '') |
|
156
|
6 |
2 |
if (defined $sref) { } |
|
168
|
11 |
8 |
$ignore{$callpkg} ? : |
|
182
|
8 |
11 |
if (ref $_[0] eq 'HASH') |
|
194
|
0 |
19 |
unless ref $vset |
|
203
|
0 |
3 |
$strict ? : |
|
|
3 |
5 |
unless defined $extra |
|
209
|
0 |
8 |
if ($strict) |
|
210
|
0 |
0 |
if ($inplace) |
|
214
|
0 |
0 |
if ($extra) |
|
229
|
3 |
16 |
if (@_ == 1 and ref $_[0]) { } |
|
230
|
0 |
3 |
unless ref $_[0] eq 'ARRAY' |
|
236
|
0 |
16 |
if $extended and @specs % 2 |
|
247
|
10 |
9 |
$extended ? : |
|
250
|
50 |
30 |
if ($extended) { } |
|
253
|
35 |
15 |
if (ref $spec) { } |
|
255
|
0 |
35 |
unless ref $spec eq 'ARRAY' |
|
267
|
12 |
18 |
unless defined $name |
|
271
|
54 |
26 |
if $case_insensitive |
|
274
|
0 |
80 |
if $name eq '' |
|
275
|
0 |
80 |
if ref $name |
|
276
|
0 |
80 |
if $seen{$name}++ |
|
278
|
53 |
27 |
defined $type ? : |
|
|
20 |
60 |
defined $dflt ? : |
|
294
|
2 |
17 |
if ($subname ne '') |
|
295
|
2 |
0 |
$case_insensitive ? : |
|
320
|
0 |
2 |
if ($extra and not $inplace) { } |
|
331
|
1 |
1 |
if ($inplace or $extra) |
|
340
|
1 |
0 |
if $case_insensitive |
|
363
|
5 |
5 |
if $inplace or $extra |
|
367
|
5 |
5 |
if $inplace or $extra |
|
376
|
7 |
3 |
if ($optional) { } |
|
377
|
4 |
3 |
if ($has_default) |
|
399
|
7 |
3 |
if ($type ne '') |
|
400
|
5 |
2 |
if ($optional) { } |
|
410
|
5 |
2 |
$optional ? : |
|
411
|
3 |
4 |
if ($type =~ /^[isn]$/) { } |
|
435
|
1 |
1 |
if $strict |
|
442
|
0 |
2 |
if $extra |
|
451
|
0 |
2 |
if (chop $@) { } |
|
479
|
3 |
14 |
if $extra and not $inplace |
|
481
|
0 |
17 |
if @$args % 2 |
|
483
|
10 |
7 |
if ($case_insensitive) { } |
|
484
|
20 |
13 |
/^-/ ? : |
|
|
33 |
33 |
$i++ % 2 ? : |
|
486
|
26 |
0 |
/^-/ ? : |
|
|
26 |
26 |
$i++ % 2 ? : |
|
490
|
0 |
17 |
if 2 * scalar(keys %args) != @$args |
|
495
|
7 |
10 |
if ($inplace or $extra) |
|
499
|
17 |
2 |
if $case_insensitive |
|
509
|
50 |
18 |
if (exists $args{$name}) { } |
|
|
15 |
3 |
elsif ($optional) { } |
|
515
|
17 |
33 |
if ($inplace or $extra) |
|
519
|
20 |
33 |
if $v > $idx |
|
523
|
6 |
9 |
if defined $dflt |
|
528
|
56 |
9 |
defined $cur ? : |
|
529
|
23 |
42 |
if not defined $type or $type eq '' |
|
531
|
29 |
13 |
if ($optional) { } |
|
532
|
0 |
29 |
if $isthere and not defined $$cur |
|
535
|
1 |
12 |
unless defined $$cur |
|
540
|
16 |
25 |
if ($type =~ /^[isn]$/) { } |
|
541
|
0 |
16 |
if !$optional || $isthere and ref $$cur |
|
545
|
19 |
6 |
$isthere ? : |
|
546
|
9 |
10 |
UNIVERSAL::isa($$cur, 'UNIVERSAL') ? : |
|
|
1 |
18 |
if !$optional || $isthere and UNIVERSAL::isa($$cur, 'UNIVERSAL') ? !$$cur->isa($type) : $ctype ne $type |
|
555
|
4 |
3 |
if $strict and scalar keys %args |
|
558
|
3 |
5 |
if $extra |
|
574
|
0 |
0 |
$ignorecase ? : |
|
576
|
0 |
0 |
if $seen{$key}++ |
|
578
|
0 |
0 |
unless @duplicates |
|
592
|
5 |
0 |
@unprocessed == 1 ? : |