| line |
true |
false |
branch |
|
40
|
0 |
3 |
if ($args{'OK_ONLY'} and $args{'OK'}) |
|
45
|
2 |
13 |
exists $args{'ISA'} ? : |
|
46
|
2 |
13 |
exists $args{'VARS'} ? : |
|
48
|
7 |
8 |
if (my $tag_data = delete $args{'TAGS'}) |
|
50
|
0 |
7 |
unless ref $tag_data eq 'ARRAY' |
|
57
|
6 |
9 |
if (my $export = delete $args{'EXPORT'}) |
|
59
|
0 |
6 |
unless ref $export eq 'ARRAY' |
|
63
|
1 |
5 |
if $@ |
|
66
|
4 |
10 |
if (my $ok = delete $args{'OK'}) |
|
68
|
0 |
4 |
unless ref $ok eq 'ARRAY' |
|
71
|
0 |
4 |
if $@ |
|
76
|
3 |
11 |
if ($ok_only) |
|
78
|
0 |
3 |
unless ref $ok_only eq 'ARRAY' |
|
81
|
0 |
3 |
if $@ |
|
86
|
2 |
12 |
if (my $fail = delete $args{'FAIL'}) |
|
88
|
0 |
2 |
unless ref $fail eq 'ARRAY' |
|
91
|
0 |
2 |
if $@ |
|
97
|
2 |
12 |
if (defined(my $all = delete $args{'ALL'})) |
|
99
|
0 |
2 |
unless length $all |
|
101
|
0 |
2 |
if exists $tags{$all} |
|
109
|
13 |
1 |
if ($vars) |
|
111
|
1 |
12 |
if (my $ref = ref $vars) { } |
|
113
|
0 |
1 |
unless $ref eq 'ARRAY' |
|
116
|
0 |
1 |
if $@ |
|
124
|
0 |
14 |
if (%args) |
|
130
|
13 |
1 |
if ($isa) |
|
135
|
5 |
9 |
if @will_export |
|
136
|
8 |
6 |
if %tags |
|
137
|
3 |
11 |
$ok_only ? : |
|
138
|
2 |
12 |
if @fail |
|
140
|
3 |
11 |
if (@_ > 1) |
|
171
|
0 |
20 |
if ref $tag_name |
|
175
|
0 |
20 |
if exists $tags->{$tag_name} |
|
179
|
0 |
20 |
unless ref $tag_list eq 'ARRAY' |
|
183
|
0 |
20 |
if $@ |
|
210
|
7 |
110 |
if ($sym =~ s/^!//) |
|
215
|
14 |
103 |
if ($sym =~ s/^://) { } |
|
218
|
1 |
13 |
unless defined $sub_tag |
|
220
|
5 |
8 |
if ($remove) { } |
|
231
|
2 |
101 |
if ($remove) { } |