Branch Coverage

blib/lib/WebFetch/Input/SiteNews.pm
Criterion Covered Total %
branch 69 102 67.6


line true false branch
60 2 0 unless (defined $self->{'num_links'})
82 0 2 if (exists $self->{'datetime_settings'} and &reftype($self->{'datetime_settings'}) eq "HASH")
85 2 0 if (exists $self->{'testing_faketime'}) { }
89 0 2 if (exists $dt_opts{'locale'})
92 0 2 if (exists $dt_opts{'time_zone'})
101 0 2 if (exists $self->{'sources'} and ref $self->{'sources'} eq "ARRAY")
104 2 0 if (exists $self->{'source'})
112 2 0 if (defined $self->{'short_path'})
131 0 48 if $a->[$exp_fnum] and not $b->[$exp_fnum]
132 0 48 if not $a->[$exp_fnum] and $b->[$exp_fnum]
136 18 30 if ($a->[$pri_fnum] != $b->[$pri_fnum])
163 2 0 if (defined $self->{'long_path'})
188 5 228 if /^\s*\#/x
189 36 192 if /^\s*$/x
191 107 85 if (/^[^\s]/x) { }
194 10 97 if ($state == initial_state())
195 2 8 if (/^categories:\s*(.*)/x) { }
6 2 elsif (/^(\w+):\s*(.*)/x) { }
207 39 66 if ($state == initial_state() or $state == text_state()) { }
66 0 elsif ($state == attr_state()) { }
210 33 6 if (/^([^=]+)=(.*)/x)
220 66 0 if (/^([^=]+)=(.*)/x)
227 0 85 if ($state == initial_state()) { }
85 0 elsif ($state == attr_state() or $state == text_state()) { }
232 52 33 if (defined $current->{'text'}) { }
251 0 2 unless (open $news_data, "<", $input)
263 33 0 defined $item->{'title'} ? :
264 33 0 defined $item->{'posted'} ? :
265 33 0 defined $item->{'category'} ? :
266 33 0 defined $item->{'text'} ? :
268 33 0 defined $self->{'url_prefix'} ? :
273 33 0 if (exists $self->{'datetime_settings'} and &reftype($self->{'datetime_settings'}) eq "HASH")
276 33 0 if ($posted)
278 8 25 if (defined $date_ref)
279 7 1 ref $date_ref eq 'DateTime' ? :
284 25 8 unless (defined $time_str and defined $anchor_time)
331 7 30 if ($a_date ne $b_date)
337 1 29 if ($WebFetch::Input::SiteNews::a->[$pri_fnum] != $WebFetch::Input::SiteNews::b->[$pri_fnum])
350 2 0 defined $self->{'url_prefix'} ? :
362 9 24 if (not defined $prev->[$date_fnum] or $prev->[$date_fnum] ne $news->[$date_fnum])
368 0 33 $news->[$exp_fnum] ? :
395 33 0 unless exists $entry->{'expires'}
396 0 0 unless defined $entry->{'expires'}
405 0 33 unless exists $entry->{'posted'}
406 0 33 unless defined $entry->{'posted'}
409 25 8 unless defined $date_ref
412 8 0 if (exists $self->{'datetime_settings'} and &reftype($self->{'datetime_settings'}) eq "HASH")
415 7 1 ref $date_ref eq 'DateTime' ? :
419 0 8 if ($age <= 2)
422 7 1 if (defined $entry->{'category'} and defined $$cat_priorities{$entry->{'category'}}) { }
428 7 0 exists $$cat_priorities{$entry->{'category'}} ? :