| line |
true |
false |
branch |
|
68
|
0 |
0 |
if ($self->{'use_wget'}) { }
|
|
71
|
0 |
0 |
if ($self->{'wget_cookies'} and -f $self->{'wget_cookies'})
|
|
75
|
0 |
0 |
if ($self->{'debug'})
|
|
79
|
0 |
0 |
if ($self->{'wget_options'})
|
|
93
|
0 |
0 |
if ($self->{'firefox_cookies'} and -f $self->{'firefox_cookies'}) { }
|
|
|
0 |
0 |
elsif ($self->{'wget_cookies'} and -f $self->{'wget_cookies'}) { }
|
|
100
|
0 |
0 |
if $self->{'debug'} and $self->{'debug'} > 2
|
|
110
|
0 |
0 |
if $self->{'debug'} and $self->{'debug'} > 2
|
|
113
|
0 |
0 |
if ($self->{'debug'} and $self->{'debug'} > 1)
|
|
140
|
0 |
0 |
ref $class ? :
|
|
280
|
0 |
0 |
$args{'basename'} ? :
|
|
284
|
0 |
0 |
if $args{'use_file'}
|
|
285
|
0 |
0 |
if ($args{'meta_only'}) { }
|
|
288
|
0 |
0 |
if $self->{'verbose'} > 1
|
|
292
|
0 |
0 |
if ($args{'epub'} and exists $story_info{'epub_url'} and $story_info{'epub_url'}) { }
|
|
300
|
0 |
0 |
if $self->{'verbose'} > 1
|
|
311
|
0 |
0 |
$one_chapter || $first_chapter_is_toc ? :
|
|
328
|
0 |
0 |
if $self->{'verbose'} > 1
|
|
333
|
0 |
0 |
if ($args{'toc'} and not $args{'epub'})
|
|
339
|
0 |
0 |
if ($args{'epub'})
|
|
348
|
0 |
0 |
if ($args{'yaml'})
|
|
352
|
0 |
0 |
unless open $ofh, ">", $filename
|
|
391
|
0 |
0 |
if (@words <= $max_words) { }
|
|
397
|
0 |
0 |
if @words > 3
|
|
398
|
0 |
0 |
if @words > 5
|
|
402
|
0 |
0 |
if ($words[$i] =~ /^(the|a|an|and)$/) { }
|
|
|
0 |
0 |
elsif (@words > 4 and $words[$i] =~ /^(of|to|in|or|on|by|i|is|isnt|its)$/) { }
|
|
439
|
0 |
0 |
if ($args{'content'} =~ m[<title>([^<]+)</title>]is) { }
|
|
449
|
0 |
0 |
if ($args{'content'} =~ m[<body[^>]*>.*?<body[^>]*>(.*?)</body>]is) { }
|
|
|
0 |
0 |
elsif ($args{'content'} =~ m[<body[^>]*>(.*)</body>]is) { }
|
|
|
0 |
0 |
elsif ($args{'content'} =~ m[</head>(.*)]is) { }
|
|
462
|
0 |
0 |
if ($story) { }
|
|
515
|
0 |
0 |
if $css
|
|
557
|
0 |
0 |
if $self->{'verbose'}
|
|
561
|
0 |
0 |
if (not $url =~ /http/ and -f $url) { }
|
|
|
0 |
0 |
elsif ($self->{'use_wget'}) { }
|
|
564
|
0 |
0 |
unless open $ifh, $url
|
|
574
|
0 |
0 |
if $self->{'verbose'} > 1
|
|
576
|
0 |
0 |
unless open $ifh, "$cmd|"
|
|
593
|
0 |
0 |
if ($res->is_success) { }
|
|
594
|
0 |
0 |
if $self->{'debug'}
|
|
602
|
0 |
0 |
if (not $content and $self->{'verbose'})
|
|
605
|
0 |
0 |
if ($self->{'debug'})
|
|
682
|
0 |
0 |
if (defined $args{'urls'}) { }
|
|
724
|
0 |
0 |
if ($content =~ m[<(?:b|strong)>Title:?\s*</(?:b|strong)>:?\s*"?(.*?)"?\s*<(?:br|p|/p|div|/div)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ /\bTitle:\s*"?(.*?)"?\s*<br/s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<h1>([^<]+)</h1>]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<p class=MsoTitle>([^<]+)</p>]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<h2>([^<]+)</h2>]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<h3>([^<]+)</h3>]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<h4>([^<]+)</h4>]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<title>([^<]+)</title>]is) { }
|
|
775
|
0 |
0 |
if ($content =~ /Chapter \d+[:.]?\s*([^<]+)/is) { }
|
|
802
|
0 |
0 |
if ($content =~ m[<(?:b|strong)>Author:?\s*</(?:b|strong)>:?\s*"?(.*?)"?\s*<(?:br|p|/p|div|/div)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ /\bAuthor:\s*"?(.*?)"?\s*<br/is) { }
|
|
|
0 |
0 |
elsif ($content =~ /<meta name="author" content="(.*?)"/is) { }
|
|
|
0 |
0 |
elsif ($content =~ /<p>by (.*?)<br/is) { }
|
|
835
|
0 |
0 |
if ($content =~ m[<(?:b|strong)>Summary:?\s*</(?:b|strong)>:?\s*"?(.*?)"?\s*<(?:br|p|/p|div|/div)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<i>Summary:</i>\s*([^<]+)\s*<br>]s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[>Summary:\s*</span>\s*([^<]+)\s*<br]s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<i>Summary:</i>\s*(.*?)\s*$]m) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<tr><(?:th|td)>Summary</(?:th|td)><td>(.*?)</td></tr>]s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[\bSummary:\s*"?(.*?)"?\s*<(?:br|p|/p|div|/div)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[(?:Prompt|Summary):</b>([^<]+)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[(?:Prompt|Summary):</strong>([^<]+)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[(?:Prompt|Summary):</u>([^<]+)]is) { }
|
|
889
|
0 |
0 |
if ($content =~ m[>Characters:?\s*</(?:b|strong)>:?\s*"?(.*?)"?\s*<(?:br|p|/p|div|/div)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ /\bCharacters:\s*"?(.*?)"?\s*<br/is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<i>Characters:</i>\s*([^<]+)\s*<br>]s) { }
|
|
|
0 |
0 |
elsif ($content =~ m[(?:Pairings?|Characters):</(?:b|strong|u)>\s*([^<]+)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<tr><(?:th|td)>(?:Pairings?|Characters)</(?:th|td)><td>(.*?)</td></tr>]s) { }
|
|
927
|
0 |
0 |
if ($content =~ m[(?:Universe|Fandom):</(?:b|strong|u)>([^<]+)]is)
|
|
948
|
0 |
0 |
if ($content =~ /(?:Recipient|Prompter): (\w+)/is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[Recipient:</(?:b|strong|u)>([^<]+)]is) { }
|
|
973
|
0 |
0 |
if ($content =~ m[(?:Category|Tags):</(?:b|strong|u)>([^<]+)]is) { }
|
|
|
0 |
0 |
elsif ($content =~ m[<tr><(?:th|td)>Categories</(?:th|td)><td>(.*?)</td></tr>]s) { }
|
|
999
|
0 |
0 |
if ($content =~ /^Rating:\s(.*?)$/m) { }
|
|
|
0 |
0 |
elsif ($content =~ m[Rating:</(?:b|strong|u)>\s*([^<]+)]is) { }
|
|
1023
|
0 |
0 |
if ($words)
|
|
1026
|
0 |
0 |
if ($words == 100) { }
|
|
|
0 |
0 |
elsif ($words == 200) { }
|
|
|
0 |
0 |
elsif ($words >= 75000) { }
|
|
|
0 |
0 |
elsif ($words >= 50000) { }
|
|
|
0 |
0 |
elsif ($words >= 25000) { }
|
|
|
0 |
0 |
elsif ($words >= 7500) { }
|
|
|
0 |
0 |
elsif ($words >= 2000) { }
|
|
|
0 |
0 |
elsif ($words > 500) { }
|
|
|
0 |
0 |
elsif ($words <= 500) { }
|
|
1054
|
0 |
0 |
if $len
|
|
1058
|
0 |
0 |
if (exists $args{'info'}{$field} and defined $args{'info'}{$field} and $args{'info'}{$field} =~ /,/s)
|
|
1095
|
0 |
0 |
unless $chapter_title
|
|
1106
|
0 |
0 |
$args{'count'} ? :
|
|
1108
|
0 |
0 |
unless open $ofh, ">", $filename
|
|
1148
|
0 |
0 |
unless open $ofh, ">", $filename
|
|
1159
|
0 |
0 |
if ($status != 0)
|
|
1164
|
0 |
0 |
if (@members and $members[0])
|
|
1174
|
0 |
0 |
if ($metanode->hasChildNodes)
|
|
1185
|
0 |
0 |
if $self->{'debug'}
|
|
1196
|
0 |
0 |
if $self->{'verbose'} > 1
|
|
1222
|
0 |
0 |
if $self->{'debug'}
|
|
1224
|
0 |
0 |
unless @metanodes
|
|
1227
|
0 |
0 |
if ($dnodes[0])
|
|
1245
|
0 |
0 |
unless @metanodes
|
|
1273
|
0 |
0 |
unless $name
|
|
1279
|
0 |
0 |
if ($name eq 'meta' and $node->hasAttributes) { }
|
|
|
0 |
0 |
elsif ($node->hasAttributes) { }
|
|
1290
|
0 |
0 |
if ($n eq 'name') { }
|
|
1303
|
0 |
0 |
if $value
|
|
1323
|
0 |
0 |
if (not ref $newval) { }
|
|
1325
|
0 |
0 |
if (not exists $oldvals->{$newname}) { }
|
|
|
0 |
0 |
elsif (not ref $oldvals->{$newname}) { }
|
|
|
0 |
0 |
elsif (ref $oldvals->{$newname} eq 'ARRAY') { }
|
|
1345
|
0 |
0 |
if (not exists $oldvals->{$newname}) { }
|
|
|
0 |
0 |
elsif (ref $oldvals->{$newname} eq 'ARRAY') { }
|
|
1385
|
0 |
0 |
if ($self->{'debug'})
|
|
1389
|
0 |
0 |
if ($wordcount < 200)
|
|
1419
|
0 |
0 |
ref $info->{'characters'} ? :
|
|
1422
|
0 |
0 |
ref $info->{'universe'} ? :
|
|
1451
|
0 |
0 |
unless open $ofh, ">", $filename
|
|
1502
|
0 |
0 |
unless ($know{$key})
|
|
1506
|
0 |
0 |
if (not ref $know{$key}) { }
|
|
1509
|
0 |
0 |
if ($know{$key} =~ /,\s*/) { }
|
|
1514
|
0 |
0 |
if ($key =~ /^(?:category|story_length)$/) { }
|
|
1526
|
0 |
0 |
if ($key =~ /^(?:category|story_length)$/) { }
|
|
1541
|
0 |
0 |
if ($key =~ /^(?:category|story_length)$/) { }
|