Branch Coverage

blib/lib/WWW/UsePerl/Journal/Entry.pm
Criterion Covered Total %
branch 14 22 63.6


line true false branch
106 2 880 unless $opts{$_}
109 1 292 unless $opts{'j'}->isa('WWW::UsePerl::Journal')
200 0 6 if $@
205 0 6 unless $content
206 1 5 if $content =~ m[Error type:\s+\d+]
208 0 5 if $content =~ m[Sorry, there are no journal entries\n found for this user.

]is 212 0 5 if $content =~ /Sorry, the requested journal entries were not found./is 230 0 5 unless ($day) 236 5 0 if ($amp) 237 0 5 if $hr > 12 and $amp eq 'PM' 238 0 5 if $hr == 12 and $amp eq 'AM'