| line |
true |
false |
branch |
|
148
|
0 |
0 |
if (defined $args{'urls'})
|
|
152
|
0 |
0 |
if (@chapters == 1)
|
|
154
|
0 |
0 |
if ($args{'url'} =~ m[http://www.gutenberg.org/ebooks/(\d+)])
|
|
179
|
0 |
0 |
if ($content =~ m[<th>Title</th>\s*<td>\s*([^<]+)\s*</td>]s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<h1 class="icon_title">\s*(.*?)\s*by\s[^<]+\s*</h1>]s) { }
|
|
210
|
0 |
0 |
if ($content =~ /Title: (.*)$/m) { }
|
|
237
|
0 |
0 |
if ($content =~ m[<h1 class="icon_title">\s*[^<]+\s*by\s+([^<]+)\s*</h1>]s) { }
|
|
268
|
0 |
0 |
unless ($subjects =~ /Fictitious character/)
|
|
271
|
0 |
0 |
if (@subs) { }
|
|
276
|
0 |
0 |
if ($sub =~ /(.*?) \((.*)\)/)
|
|
283
|
0 |
0 |
if ($sub =~ /(.*?), (.*)/)
|
|
296
|
0 |
0 |
if (%cats)
|
|
322
|
0 |
0 |
if ($subjects =~ /Fictitious character/)
|
|
325
|
0 |
0 |
if (@subs)
|
|
330
|
0 |
0 |
if ($sub =~ /(.*?) \(Fictitious character\)/)
|
|
333
|
0 |
0 |
if ($sub1 =~ /(.*?), (.*)/)
|
|
343
|
0 |
0 |
if (%chars)
|