Branch Coverage

blib/lib/Perlanet.pm
Criterion Covered Total %
branch 7 36 19.4


line true false branch
39 0 4 if -t STDOUT
177 0 6 if ($response->is_error)
183 0 0 unless (length $response->content)
188 0 6 unless $feed->title
192 0 6 if ($TryCatch::Error)
194 0 0 if defined $e
217 6 0 if ($self->entries_per_feed and @entries > $self->entries_per_feed)
226 0 4 if ($_->issued and not $_->modified)
265 0 3 if ($self->entries and @entries > $self->entries)
288 0 0 if defined $self->title
289 0 0 if defined $self->url
290 0 0 if defined $self->description
291 0 0 if defined $self->author->{'name'}
292 0 0 if defined $self->author->{'email'}
293 0 0 if defined $self->url
294 0 0 if defined $self->url
329 0 0 if (my $body = $_->content->body)
334 0 0 if (my $summary = $_->summary->body)