| line |
true |
false |
branch |
|
93
|
0 |
27 |
unless @param |
|
103
|
2 |
25 |
if (ref $param[0] eq 'HASH') { } |
|
120
|
24 |
1 |
unless defined $param[0] and substr($param[0], 0, 1) eq '-' |
|
177
|
9 |
0 |
if (exists $pos{$key}) |
|
222
|
14 |
2 |
if ref $_[0] eq 'HASH' |
|
227
|
1 |
15 |
if ref $_[0] eq 'ARRAY' |
|
232
|
1 |
15 |
unless %clause or @clause |
|
248
|
6 |
14 |
$reverse ? : |
|
256
|
15 |
1 |
if scalar @clause |
|
279
|
3 |
0 |
if defined $as |
|
302
|
3 |
0 |
if defined $equals |
|
327
|
3 |
0 |
if defined $comma |
|
350
|
3 |
0 |
if defined $assign |
|
376
|
1 |
0 |
if defined $add_as and length $as |
|
382
|
0 |
0 |
if defined $add_as |
|
408
|
1 |
0 |
if defined $add_equals and length $equals |
|
414
|
0 |
0 |
if defined $add_equals |
|
441
|
1 |
0 |
if defined $add_comma and length $comma |
|
447
|
0 |
0 |
if defined $add_comma |
|
472
|
1 |
0 |
if defined $add_assign and length $assign |
|
478
|
0 |
0 |
if defined $add_assign |
|
505
|
1 |
0 |
if defined $set_as |
|
533
|
1 |
0 |
if defined $set_equals |
|
561
|
1 |
0 |
if defined $set_comma |
|
588
|
1 |
0 |
if defined $set_assign |
|
611
|
4 |
3 |
scalar @_ ? : |
|
616
|
3 |
4 |
ref $value ? : |
|
639
|
1 |
4 |
scalar @_ ? : |
|
647
|
3 |
2 |
if (not ref $value eq 'HASH') { } |
|
750
|
8 |
12 |
length $answer ? : |
|
833
|
1 |
2 |
unless $confirm =~ /^y/i |