| line |
true |
false |
branch |
|
12
|
1 |
412 |
if $package->isa('WebService::GData::Node') or $package eq 'main' |
|
36
|
0 |
163 |
if $package eq 'WebService::GData::Node' |
|
53
|
114 |
86 |
if (ref $args[0] eq 'HASH') |
|
57
|
53 |
61 |
if ($args[0]{'$t'}) |
|
70
|
164 |
36 |
if @args % 2 == 0 |
|
93
|
7 |
19 |
if @args |
|
100
|
153 |
47 |
if (@_ == 1) |
|
102
|
0 |
153 |
if $this == $child |
|
114
|
0 |
0 |
if ($child == $remove) |
|
127
|
2 |
5 |
unless (grep /^$func$/, @attrs) |
|
129
|
1 |
6 |
if $attr =~ /^.+?:$func$/ |
|
133
|
1 |
6 |
if (my($ns, $tag) = $func =~ /^(.+?)_(.+)$/) |
|
136
|
0 |
1 |
if (grep /^$attr$/, @attrs) |
|
141
|
7 |
0 |
@args == 1 ? : |
|
153
|
14 |
45 |
unless (grep /^$func$/, @attrs) |
|
155
|
8 |
39 |
if $attr =~ /^.+?:$func$/ |
|
158
|
6 |
53 |
if (my($ns, $tag) = $func =~ /^(.+?)_(.+)$/) |
|
161
|
0 |
6 |
if (grep /$attr/, @attrs) |
|
181
|
2 |
146 |
if (@args > 0) |
|
182
|
2 |
0 |
@args == 1 ? : |