| line |
true |
false |
branch |
|
86
|
0 |
1 |
unless &GetOptionsFromArray($args, \%option, 'application=s', 'destination|directory=s', 'index=s', 'environment=s', 'follow!', 'filter|files|F', 'quiet', 'include|INC=s@', 'verbose!', 'errors!', 'tap!', 'host=s@', 'url|uri=s', 'parallel=i', 'help', 'manual', 'tutorial', 'version') |
|
108
|
0 |
1 |
if $option{'help'} |
|
109
|
0 |
1 |
if $option{'manual'} |
|
116
|
0 |
1 |
if $option{'tutorial'} |
|
118
|
0 |
1 |
if $option{'version'} |
|
126
|
1 |
0 |
unless exists $option{'application'} |
|
138
|
0 |
1 |
unless $args{'option'} |
|
140
|
0 |
1 |
unless $args{'callbacks'} |
|
143
|
0 |
1 |
unless exists $option{'application'} |
|
146
|
0 |
1 |
if ($option{'tap'}) |
|
149
|
0 |
0 |
if ($option{'parallel'}) |
|
155
|
0 |
0 |
unless (exists $option{'destination'}) |
|
161
|
1 |
0 |
if $option{'quiet'} |
|
165
|
0 |
1 |
if $option{'url'} |
|
173
|
1 |
0 |
unless $option{'include'} |
|
190
|
1 |
0 |
ref $option{'application'} ? : |
|
194
|
0 |
1 |
if ($self->{'option'}{'parallel'}) |
|
211
|
0 |
1 |
$self->{'option'}{'filter'} ? : |
|
213
|
0 |
1 |
if ($self->{'option'}{'parallel'}) { } |
|
|
0 |
1 |
elsif ($self->{'option'}{'tap'}) { } |
|
228
|
0 |
1 |
ref $_ ? : |
|
233
|
0 |
2 |
if ($self->{'option'}{'parallel'}) |
|
234
|
0 |
0 |
if ($self->{'_parent_'} == $$) { } |
|
252
|
0 |
0 |
@ARGV ? : |
|
254
|
0 |
0 |
unless rename "$fh", $TODO |
|
261
|
0 |
0 |
if (not $self->{'_forked_'}) |
|
263
|
0 |
0 |
if (not my $pid = fork) { } |
|
|
0 |
0 |
elsif (not defined $pid) { } |
|
302
|
0 |
0 |
unless -e $TODO |
|
308
|
0 |
0 |
unless open my $fh, '<', $TODO |
|
321
|
0 |
2 |
if ($self->{'option'}{'parallel'}) { } |
|
324
|
0 |
0 |
if $self->{'_parent_'} == $$ |
|
331
|
0 |
0 |
-e $SEEN ? : |
|
|
0 |
0 |
unless open my $fh, -e $SEEN ? '+<' : '+>', $SEEN |
|
336
|
0 |
0 |
unless flock $seen_fh, LOCK_EX() |
|
344
|
0 |
0 |
unless (defined $next) |
|
349
|
0 |
0 |
unless (defined $next or $certain) |
|
350
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
357
|
0 |
0 |
if (defined $next) |
|
361
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
368
|
1 |
1 |
unless defined $next |
|
376
|
0 |
0 |
if $self->{'_parent_'} != $$ |
|
381
|
0 |
0 |
if ($self->{'option'}{'tap'}) |
|
384
|
0 |
0 |
unless open my $fh, '<', $SEEN |
|
400
|
0 |
0 |
if /^\s*(#|$)/ |
|
406
|
0 |
0 |
if $self->{'option'}{'parallel'} and $self->{'_parent_'} != $$ |
|
418
|
0 |
1 |
@queue ? : |
|
430
|
1 |
0 |
if ($status == 200 || $status == 304 and $follow) { } |
|
|
0 |
0 |
elsif ($status == 301) { } |
|
438
|
0 |
0 |
if $l |