| line |
true |
false |
branch |
|
25
|
2 |
2 |
if (@_ <= 1) { } |
|
|
1 |
1 |
elsif (@_ == 2 and &looks_like_number($_[0]) and &looks_like_number($_[1])) { } |
|
27
|
0 |
2 |
unless my $point = $self->find('point') |
|
28
|
0 |
2 |
unless $point = $$point[shift() // 0] |
|
31
|
0 |
2 |
if $point->namespace ne 'XML::Loy::GeoRSS'->_namespace |
|
52
|
10 |
4 |
if (@_ <= 1) |
|
53
|
0 |
10 |
unless my $line = $self->find('line') |
|
54
|
0 |
10 |
unless $line = $$line[shift() // 0] |
|
57
|
0 |
10 |
if $line->namespace ne 'XML::Loy::GeoRSS'->_namespace |
|
67
|
2 |
2 |
if @_ % 2 or @_ < 4 |
|
79
|
8 |
5 |
if (@_ <= 1) |
|
80
|
0 |
8 |
unless my $poly = $self->find('polygon') |
|
81
|
0 |
8 |
unless $poly = $$poly[shift() // 0] |
|
84
|
0 |
8 |
if $poly->namespace ne 'XML::Loy::GeoRSS'->_namespace |
|
94
|
3 |
2 |
if @_ % 2 or @_ < 6 |
|
97
|
1 |
1 |
if ($_[0] != $_[$#_ - 1] and $_[1] != $_[$#_]) |
|
119
|
2 |
1 |
ref $val ? : |
|
156
|
4 |
4 |
if (@_ <= 1) |
|
157
|
0 |
4 |
unless my $box = $self->find('box') |
|
158
|
0 |
4 |
unless $box = $$box[shift() // 0] |
|
161
|
0 |
4 |
if $box->namespace ne 'XML::Loy::GeoRSS'->_namespace |
|
173
|
3 |
1 |
unless @_ == 4 |
|
183
|
3 |
3 |
if (@_ <= 1) |
|
184
|
0 |
3 |
unless my $circle = $self->find('circle') |
|
185
|
0 |
3 |
unless $circle = $$circle[shift() // 0] |
|
188
|
0 |
3 |
if $circle->namespace ne 'XML::Loy::GeoRSS'->_namespace |
|
196
|
2 |
1 |
unless @_ == 3 |