Branch Coverage

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


line true false branch
36 0 4 if -t STDOUT
174 0 6 if ($response->is_error)
180 0 6 unless (length $response->content)
190 0 0 unless $feed->title
196 6 0 if defined $_
219 0 0 if ($self->entries_per_feed and @entries > $self->entries_per_feed)
228 0 0 if ($_->issued and not $_->modified)
267 0 3 if ($self->entries and @entries > $self->entries)
290 3 0 if defined $self->title
291 3 0 if defined $self->url
292 3 0 if defined $self->description
293 3 0 if defined $self->author->{'name'}
294 3 0 if defined $self->author->{'email'}
295 3 0 if defined $self->url
296 3 0 if defined $self->url
331 0 0 if (my $body = $_->content->body)
336 0 0 if (my $summary = $_->summary->body)