Branch Coverage

blib/lib/Perlanet.pm
Criterion Covered Total %
branch 12 34 35.2


line true false branch
39 0 4 if -t STDOUT
177 0 6 if ($response->is_error)
183 0 6 unless (length $response->content)
193 0 0 unless $feed->title
199 6 0 if defined $_
222 0 0 if ($self->entries_per_feed and @entries > $self->entries_per_feed)
231 0 0 if ($_->issued and not $_->modified)
270 0 3 if ($self->entries and @entries > $self->entries)
293 3 0 if defined $self->title
294 3 0 if defined $self->url
295 3 0 if defined $self->description
296 3 0 if defined $self->author->{'name'}
297 3 0 if defined $self->author->{'email'}
298 3 0 if defined $self->url
299 3 0 if defined $self->url
334 0 0 if (my $body = $_->content->body)
339 0 0 if (my $summary = $_->summary->body)