| line |
true |
false |
branch |
|
150
|
21 |
19 |
unless $args and ref($args) =~ /hash/iu |
|
251
|
19 |
3 |
ref $fields[0] eq 'ARRAY' ? : |
|
253
|
21 |
1 |
@required ? : |
|
259
|
6 |
3 |
ref $fields[0] eq 'ARRAY' ? : |
|
261
|
8 |
1 |
@accepted ? : |
|
279
|
7 |
3 |
ref $fields[0] eq 'ARRAY' ? : |
|
281
|
9 |
1 |
@excluded ? : |
|
292
|
39 |
1 |
wantarray ? : |
|
441
|
50 |
7 |
if (ref $args eq 'HASH') { } |
|
|
5 |
2 |
elsif (ref $args eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (not ref $args) { } |
|
445
|
1 |
4 |
if (ref $args->[0] eq 'HASH') { } |
|
450
|
1 |
3 |
if (@args == 1) { } |
|
|
2 |
1 |
elsif (@args % 2) { } |
|
452
|
0 |
1 |
length $args[0] > 20 ? : |
|
469
|
0 |
2 |
length $args > 20 ? : |
|
476
|
1 |
56 |
unless (keys %args) |
|
479
|
1 |
0 |
wantarray ? : |
|
482
|
2 |
54 |
if (scalar keys %args < @required_flds) |
|
485
|
2 |
0 |
wantarray ? : |
|
495
|
60 |
0 |
if (exists $args{$fld}) { } |
|
505
|
10 |
44 |
if (keys %args == 0) |
|
506
|
9 |
1 |
wantarray ? : |
|
509
|
5 |
39 |
if (scalar keys %$filtered == @required_flds and not @$ok) |
|
510
|
5 |
0 |
wantarray ? : |
|
513
|
0 |
39 |
if (@missing_required) |
|
516
|
0 |
0 |
wantarray ? : |
|
522
|
18 |
2 |
if (exists $args{$fld}) |
|
531
|
13 |
26 |
if ($has_wildcard) { } |
|
540
|
35 |
6 |
if (exists $args{$fld}) |
|
547
|
3 |
36 |
if ($db and @unrecognized > 0) |
|
551
|
3 |
36 |
if ($db and @excluded > 0) |
|
558
|
9 |
30 |
@all_msgs ? : |
|
562
|
39 |
0 |
wantarray ? : |