Branch Coverage

blib/lib/Sub/Args.pm
Criterion Covered Total %
branch 24 26 92.3


line true false branch
14 2 19 if (ref $rule ne 'HASH')
20 2 17 ref $_[0] eq 'HASH' ? :
21 16 3 unless (keys %$caller_args)
25 13 3 if $invocant eq (ref $DB::args[0] || $DB::args[0])
27 10 6 if (ref $DB::args[0] eq 'HASH') { }
30 1 5 if (scalar(@DB::args) % 2 == 1)
37 2 32 $$rule{$_} && !defined($$caller_args{$_}) ? :
39 2 20 !defined($$rule{$_}) ? :
41 9 19 unless exists $$caller_args{$_}
52 6 0 if $invocant eq (ref $DB::args[0] || $DB::args[0])
58 1 16 if ($_[$i] and not defined $args[0])
63 1 4 if (scalar @args > 0)
67 4 0 wantarray ? :