| line |
true |
false |
branch |
|
38
|
76 |
7 |
ref $desc ? : |
|
41
|
32 |
51 |
unless not length $tag or $self->{'element'} =~ /(\A|\:)\Q$tag\E\z/ |
|
44
|
0 |
14 |
unless defined $val |
|
45
|
7 |
7 |
unless not defined $attrs->{$attr} or $attrs->{$attr} eq $val |
|
55
|
0 |
33 |
unless defined $tag |
|
58
|
0 |
33 |
unless length $tag |
|
75
|
20 |
7 |
unless $start_root |
|
79
|
37 |
0 |
if ($success) { } |
|
87
|
7 |
20 |
if ($start_root) |
|
88
|
1 |
6 |
unless $self->cmp_element(shift @path) |
|
92
|
0 |
29 |
unless @result |
|
94
|
7 |
19 |
wantarray ? : |
|
99
|
19 |
14 |
@_ && ref $_[-1] ? : |
|
100
|
2 |
1 |
defined $_[0] ? : |
|
|
3 |
30 |
@_ ? : |
|
102
|
30 |
3 |
if (not defined $set_value) { } |
|
104
|
15 |
15 |
if ($self->{'content'}) |
|
109
|
12 |
18 |
if ($self->{'value'}) |
|
111
|
2 |
10 |
if ($flags->{'strip'}) |
|
116
|
1 |
2 |
if (length $set_value) { } |
|
131
|
2 |
4 |
@_ && ref $_[-1] ? : |
|
132
|
2 |
1 |
defined $_[0] ? : |
|
|
3 |
3 |
@_ ? : |
|
134
|
3 |
3 |
if (not defined $set_xml) { } |
|
143
|
1 |
2 |
unless $obj->{'content'} |
|
155
|
2 |
28 |
if (@_) |
|
157
|
2 |
0 |
if (not ref $next) { } |
|
167
|
30 |
0 |
if (defined $attrname) { } |
|
168
|
2 |
28 |
if ($must_set) { } |
|
169
|
1 |
1 |
if (defined $set_to) { } |
|
190
|
5 |
0 |
if (defined $tag) { } |
|
191
|
1 |
4 |
if $flags->{'strip_ns'} |
|
209
|
9 |
5 |
if (not $flags->{'internal'}) { } |
|
212
|
5 |
0 |
if (ref $simple eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $simple eq 'ARRAY') { } |
|
224
|
0 |
21 |
$flags->{'complete'} ? : |
|
226
|
3 |
18 |
if ($flags->{'tidy'}) |
|
228
|
0 |
21 |
if (defined $flags->{'save'}) |
|
229
|
0 |
0 |
unless open my $fh, '>', $flags->{'save'} |
|
234
|
4 |
17 |
if $flags->{'bytes'} |