Branch Coverage

blib/lib/XML/Atom/SimpleFeed.pm
Criterion Covered Total %
branch 48 86 55.8


line true false branch
57 0 1 if -1 < index($_, "
67 25 32 if (ref $name eq "ARRAY")
75 50 7 @_ ? :
84 0 0 if @_
85 0 0 if @_
91 2 1 if (ref $link_arg ne 'HASH') { }
0 1 elsif (not exists $link_arg->{'rel'} or $link_arg->{'rel'} eq 'alternate') { }
112 9 2 unless $dt =~ /[^0-9]/
119 3 0 'HASH' ne ref $arg ? :
121 0 3 unless exists $prop->{'name'}
135 0 9 if (ref $arg eq 'HASH') { }
138 0 0 exists $arg->{'type'} ? :
140 0 0 unless exists $arg->{'content'}
144 0 0 if ($type eq 'xhtml') { }
0 0 elsif ($type eq 'html' or $type eq 'text') { }
147 0 0 if (not $content =~ /
159 0 0 if $name ne "content"
171 8 1 if ($type eq "html" and not $content =~ /&/)
176 1 8 $type ne 'text' ? :
186 0 1 if "HASH" eq ref $arg and exists $arg->{'rel'} and "alternate" eq $arg->{'rel'}
189 1 2 'HASH' eq ref $arg ? :
190 0 1 unless exists $arg->{'href'}
205 0 2 'HASH' eq ref $arg ? :
206 0 0 unless exists $arg->{'term'}
216 2 5 if (ref $arg eq 'HASH') { }
4 1 elsif (defined $arg) { }
217 0 2 unless exists $arg->{'name'}
257 36 0 if (exists $permission{$elem}) { }
265 2 34 if ($elem eq "link" and defined(my $alt = permalink($arg)))
266 2 0 unless $count{'alternate link'}++
269 13 23 if (exists $callback->{$elem})
271 11 25 unless (@$elements)
275 0 11 if (not $count{'id'} and defined $permalink)
279 3 8 unless ($count{'updated'})
290 0 8 if @missing
291 0 8 if @toomany
293 0 8 if @error
305 2 5 if (my(@i) = grep({"-encoding" eq $_[$_];} grep({not $_ % 2;} 0 .. $#_)))
306 0 2 if @i > 1
311 7 0 @_ ? :
333 2 5 unless $have_generator
345 1 0 $self->{'have_default_author'} ? :
384 0 0 defined $handle ? :