| line |
true |
false |
branch |
|
34
|
1 |
0 |
if (-d "$FindBin::Bin/../lib") |
|
92
|
0 |
0 |
if $debug |
|
96
|
0 |
0 |
unless -d $spooldir |
|
102
|
0 |
0 |
if (@ARGV) |
|
121
|
0 |
0 |
if ($list) |
|
127
|
0 |
0 |
if ($activate) |
|
129
|
0 |
0 |
unless $rebuild |
|
132
|
0 |
0 |
unless ($rebuild) |
|
156
|
0 |
0 |
if ($opts->{'error'}) { } |
|
161
|
0 |
0 |
if ($refresh) |
|
182
|
0 |
0 |
unless opendir my $dh, $INC[0] . '/Comics/Plugin' |
|
186
|
0 |
0 |
unless $m =~ /^[0-9A-Z].*\.pm$/u |
|
187
|
0 |
0 |
if $m eq "Base.pm" |
|
189
|
0 |
0 |
unless $m =~ /$pluginfilter/u |
|
197
|
0 |
0 |
unless $pkg |
|
198
|
0 |
0 |
unless ($pkg eq "Comics::Plugin::$m") |
|
203
|
0 |
0 |
unless $comic |
|
209
|
0 |
0 |
$comic->{'disabled'} ? : |
|
213
|
0 |
0 |
if (not $activate and $comic->{'ondemand'} and not exists $state->{'comics'}{$tag}) |
|
218
|
0 |
0 |
if ($activate > 0) { } |
|
|
0 |
0 |
elsif ($activate < 0) { } |
|
225
|
0 |
0 |
unless unlink spoolfile($tag . '.' . $_) |
|
230
|
0 |
0 |
unless defined $_ |
|
231
|
0 |
0 |
unless unlink spoolfile($_) |
|
237
|
0 |
0 |
if ($state->{'comics'}{$tag}{'disabled'}) |
|
244
|
0 |
0 |
if ($main::stats->{'loaded'} == $main::stats->{'excluded'}) |
|
261
|
0 |
0 |
unless ($state->{'comics'}{$main::a->{'tag'}}{'disabled'} // 0) <=> ($state->{'comics'}{$main::b->{'tag'}}{'disabled'} // 0) or $main::b->{'update'} <=> $main::a->{'update'} |
|
267
|
0 |
0 |
if $l_name < length $_->{'name'} |
|
268
|
0 |
0 |
if $l_plugin < length ref $_ |
|
284
|
0 |
0 |
$st->{'disabled'} ? : |
|
|
0 |
0 |
$comic->{'update'} ? : |
|
297
|
0 |
0 |
unless ($ua) |
|
303
|
0 |
0 |
if $verbose > 1 |
|
314
|
0 |
0 |
if $comic->{'state'}{'disabled'} and not $force |
|
318
|
0 |
0 |
unless (eval {
do {
$comic->fetch($reuse);
1
}
}) |
|
332
|
0 |
0 |
unless chdir $spooldir |
|
336
|
0 |
0 |
if $debug |
|
337
|
0 |
0 |
if $rebuild |
|
343
|
0 |
0 |
unless $force |
|
348
|
0 |
0 |
if ($debug > 1) |
|
354
|
0 |
0 |
unless (-s "comics.png") |
|
366
|
0 |
0 |
unless open my $hh, "<:utf8", $_ |
|
439
|
0 |
0 |
unless $verbose |
|
455
|
0 |
0 |
if $disabled |
|
456
|
0 |
0 |
if $excluded |
|
457
|
0 |
0 |
if ($fail) |
|
458
|
0 |
0 |
if ($html) { } |
|
493
|
0 |
0 |
unless $debug |
|
516
|
0 |
0 |
if (@ARGV > 0) |
|
528
|
0 |
0 |
unless &GetOptions("spooldir=s", \$spooldir, "refresh", \$refresh, "rebuild", \$rebuild, "enable", \$activate, "disable", sub {
$activate = -1;
}
, "list", \$list, "force", \$force, "reuse", \$reuse, "ident", \$ident, "verbose+", \$verbose, "quiet", sub {
$verbose = 0;
}
, "trace", \$trace, "help|?", \$help, "man", \$man, "debug", \$debug) |
|
534
|
0 |
0 |
if ($ident or $help or $man) |
|
537
|
0 |
0 |
if ($man or $help) |
|
538
|
0 |
0 |
if $help |
|
539
|
0 |
0 |
if $man |
|
720
|
0 |
0 |
if $res->is_success |
|
722
|
0 |
0 |
if ($res->status_line =~ /^403/u) |
|
727
|
0 |
0 |
unless $res->status_line =~ /^5/u |
|
728
|
0 |
0 |
if $verbose |