| line |
true |
false |
branch |
|
26
|
0 |
6 |
unless my $args_prop = $meta->{'args'}
|
|
30
|
4 |
20 |
if ($neg) { }
|
|
32
|
1 |
2 |
if $argspec->{'tags'} and grep {$_ eq $tag;} @{$$argspec{"tags"};}
|
|
35
|
15 |
5 |
unless $argspec->{'tags'} and grep {$_ eq $tag;} @{$$argspec{"tags"};}
|
|
38
|
6 |
2 |
if exists $args->{$argname}
|
|
47
|
0 |
5 |
unless my $args_prop = $meta->{'args'}
|
|
48
|
1 |
4 |
if $tag =~ s/\A!//
|
|
51
|
4 |
16 |
if ($neg) { }
|
|
53
|
1 |
2 |
if $argspec->{'tags'} and grep {$_ eq $tag;} @{$$argspec{"tags"};}
|
|
56
|
11 |
5 |
unless $argspec->{'tags'} and grep {$_ eq $tag;} @{$$argspec{"tags"};}
|
|
67
|
2 |
0 |
if ($func_name =~ /(.+)::(.+)/) { }
|
|
76
|
0 |
1 |
unless my $meta = _find_meta([caller 1], $func_name)
|
|
83
|
0 |
1 |
unless my $meta = _find_meta([caller 1], $func_name)
|
|
92
|
1 |
0 |
if ($func_name =~ /(.+)::(.+)/) { }
|
|
93
|
0 |
1 |
unless defined &{$func_name;}
|
|
100
|
0 |
0 |
unless defined &{$fullname;}
|
|
105
|
0 |
1 |
unless $meta
|
|
108
|
1 |
0 |
if ($meta->{'args'})
|
|
111
|
2 |
2 |
if exists $args->{$argname}
|