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) { } |