Branch Coverage

blib/lib/WWW/FetchStory/Fetcher/AO3.pm
Criterion Covered Total %
branch 0 98 0.0


line true false branch
81 0 0 if (-f $url and $url =~ /\.html$/) { }
107 0 0 if ($args{'use_file'} and $args{'use_file'} =~ /epub$/) { }
112 0 0 if ($status != 0)
128 0 0 unless $first_title
181 0 0 if $args{'verbose'} > 1
182 0 0 if $args{'verbose'} > 2
187 0 0 if ($args{'url'} =~ /epub$/)
191 0 0 if ($content =~ m[Posted originally on the <a href="https?://archiveofourown.org/">Archive of Our Own</a> at <a href="(https?://archiveofourown.org/works/\d+)"])
199 0 0 if ($info{'url'} =~ m[archiveofourown.org/works/(\d+)]) { }
0 0 elsif ($args{'rurl'} and $args{'rurl'} =~ m[archiveofourown.org/works/(\d+)]) { }
0 0 elsif (not $args{'rurl'}) { }
209 0 0 if ($content =~ /work_id=(\d+)/) { }
0 0 elsif ($content =~ m[/works/(\d+)/]) { }
220 0 0 unless ($sid)
235 0 0 if ($epub_url)
239 0 0 if ($args{'epub'} or $args{'url'} =~ /epub$/)
262 0 0 if (defined $args{'urls'})
266 0 0 if (@chapters == 1 and $content =~ m[href="(/downloads/$sid/[^.]+\.html)])
290 0 0 if ($content =~ m[href="(/downloads/$sid/[^.]+\.epub\?updated_at=\d+)]) { }
0 0 elsif ($content =~ m[href="(/downloads/$sid/[^.]+\.epub)]) { }
314 0 0 if ($content =~ m[<h2 class="title heading">\s*([^<]*)</h2>]s) { }
0 0 elsif ($content =~ m[<h1[^>]*>([^<]*)</h1>]) { }
342 0 0 if ($content =~ m[ href="/users/\w+/pseuds/\w+">([^<]+)</a>]) { }
0 0 elsif ($content =~ m[ href="/users/\w+/pseuds/[^"]+">([^<]+)</a>]) { }
0 0 elsif ($content =~ m[ href="https?://archiveofourown\.org/users/\w+/pseuds/[^"]+" rel="author">([^<]+)</a>]) { }
375 0 0 if ($content =~ m[<h3[^>]*>Summary:</h3>\s*<blockquote class="userstuff"><p>([^<]+)</p></blockquote>]s) { }
0 0 elsif ($content =~ m[<h3[^>]*>Summary:</h3>\s*<blockquote class="userstuff">(.*?)</blockquote>]s) { }
0 0 elsif ($content =~ m[<p[^>]*>Summary</p>\s*<blockquote class="userstuff">(.*?)</blockquote>]s) { }
425 0 0 if ($content =~ /\((\d+) words\)/m) { }
0 0 elsif ($content =~ m[<dt class="words">Words:</dt>\s*<dd class="words">([0-9][0-9,]+)</dd>]) { }
0 0 elsif ($content =~ /Words:\s*([0-9][0-9,]+)/) { }
454 0 0 if ($content =~ m[<dd class="character tags">(.*?)</dd>]s) { }
0 0 elsif ($content =~ m[<dt[^>]*>Characters:</dt>\s*<dd[^>]*>(.*?)</dd>]s) { }
0 0 elsif ($content =~ /^Characters: (.*?)$/m) { }
510 0 0 if ($content =~ m[<dd class="fandom tags">(.*?)</dd>]s) { }
0 0 elsif ($content =~ m[<dt[^>]*>Fandoms:</dt>\s*<dd[^>]*>(.*?)</dd>]s) { }
538 0 0 if ($universe =~ /Harry Potter - J\. K\. Rowling/) { }
0 0 elsif ($universe =~ /(Doctor Who)/) { }
0 0 elsif ($universe =~ /Blake&amp;#39;s 7/) { }
0 0 elsif ($universe =~ /(Marvel Cinematic Universe|Avengers|Iron Man|Captain America)/) { }
569 0 0 if ($content =~ m[<dd class="freeform tags">(.*?)</dd>]s) { }
0 0 elsif ($content =~ m[<dt[^>]*>Additional Tags:</dt>\s*<dd[^>]*>(.*?)</dd>]s) { }
0 0 elsif ($content =~ m[Additional Tags:\s*</dt>\s*<dd class="freeform tags">\s*<ul[^>]*>\s*(.*?)\s*</ul>]s) { }
598 0 0 if ($cat =~ m[class="tag">([^<]+)</a>])
611 0 0 if ($content =~ m[<dd class="relationship tags">(.*?)</dd>]s or $content =~ m[<dt[^>]*>Relationships?:</dt>\s*<dd[^>]*>(.*?)</dd>]s)
620 0 0 if ($rawrel =~ m[/]) { }
0 0 elsif ($rawrel =~ /\&amp;/) { }
657 0 0 if ($content =~ m[<dd class="rating tags">(.*?)</dd>]s) { }
0 0 elsif ($content =~ m[<dt[^>]*>Rating:</dt>\s*<dd[^>]*>(.*?)</dd>]s) { }