Branch Coverage

blib/lib/WWW/FetchStory/Fetcher/HPAdultFanfiction.pm
Criterion Covered Total %
branch 0 42 0.0


line true false branch
122 0 0 if $self->{'verbose'} > 1
125 0 0 if $self->{'verbose'} > 1
128 0 0 if ($content =~ m[<td colspan="3" bgcolor="F4EBCC">\s*<font color="#003333">Disclaimer:[^<]+</font>\s*</td>\s*</tr>\s*<tr>\s*<td colspan="3">\s*<p>&nbsp;</p>\s*</td>\s*</tr>\s*<tr>\s*<td colspan="3" bgcolor="F4EBCC">\s*(.*?)<tr class='catdis'>]s)
133 0 0 if ($story) { }
143 0 0 if $title eq $chapter
144 0 0 if $chapter eq ""
147 0 0 if ($story)
198 0 0 if ($args{'url'} =~ /no=(\d+)/) { }
216 0 0 if ($content =~ /Author:\s*<a href='authors\.php\?no=(\d+)'>/s)
220 0 0 if ($auth_id and $sid)
223 0 0 if ($auth_page =~ m[<a href='story\.php\?no=$sid'>[^<]+</a><br>\s*([^<]+)<br>]s)
228 0 0 unless ($info{'summary'})
252 0 0 if (defined $args{'urls'})
256 0 0 if (@chapters == 1)
264 0 0 if ($a_ch > $max_chapter)
272 0 0 if $self->{'verbose'} > 1
295 0 0 if ($content =~ m[<title>\s*Story:\s*([^<]+)\s*</title>]is) { }
322 0 0 if ($content =~ m[Author:\s*<a href='authors\.php\?no=\d+'>\s*([^<]+)\s*</a>]s) { }
348 0 0 if ($content =~ m[<a href="main\.php\?list=\d+">\s*(\w+)/(\w+)</a>]) { }
397 0 0 if ($content =~ /^Chapter\s*(\d+:[^<]+)<br/m) { }
0 0 elsif ($content =~ m[<option[^>]+selected>([^<]+)</option>]s) { }