| line |
true |
false |
branch |
|
78
|
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') |
|
100
|
0 |
1 |
if $option{'help'} |
|
101
|
0 |
1 |
if $option{'manual'} |
|
108
|
0 |
1 |
if $option{'tutorial'} |
|
110
|
0 |
1 |
if $option{'version'} |
|
118
|
1 |
0 |
unless exists $option{'application'} |
|
130
|
0 |
1 |
unless $args{'option'} |
|
132
|
0 |
1 |
unless $args{'callbacks'} |
|
135
|
0 |
1 |
unless exists $option{'application'} |
|
138
|
0 |
1 |
if ($option{'tap'}) |
|
141
|
0 |
0 |
if ($option{'parallel'}) |
|
147
|
0 |
0 |
unless (exists $option{'destination'}) |
|
153
|
1 |
0 |
if $option{'quiet'} |
|
157
|
0 |
1 |
if $option{'url'} |
|
165
|
1 |
0 |
unless $option{'include'} |
|
182
|
1 |
0 |
ref $option{'application'} ? : |
|
186
|
0 |
1 |
if ($self->{'option'}{'parallel'}) |
|
203
|
0 |
1 |
$self->{'option'}{'filter'} ? : |
|
205
|
0 |
1 |
if ($self->{'option'}{'parallel'}) { } |
|
|
0 |
1 |
elsif ($self->{'option'}{'tap'}) { } |
|
220
|
0 |
1 |
ref $_ ? : |
|
225
|
0 |
2 |
if ($self->{'option'}{'parallel'}) |
|
226
|
0 |
0 |
if ($self->{'_parent_'} == $$) { } |
|
244
|
0 |
0 |
@ARGV ? : |
|
246
|
0 |
0 |
unless rename "$fh", $TODO |
|
253
|
0 |
0 |
if (not $self->{'_forked_'}) |
|
255
|
0 |
0 |
if (not my $pid = fork) { } |
|
|
0 |
0 |
elsif (not defined $pid) { } |
|
294
|
0 |
0 |
unless -e $TODO |
|
300
|
0 |
0 |
unless open my $fh, '<', $TODO |
|
313
|
0 |
2 |
if ($self->{'option'}{'parallel'}) { } |
|
316
|
0 |
0 |
if $self->{'_parent_'} == $$ |
|
323
|
0 |
0 |
-e $SEEN ? : |
|
|
0 |
0 |
unless open my $fh, -e $SEEN ? '+<' : '+>', $SEEN |
|
328
|
0 |
0 |
unless flock $seen_fh, LOCK_EX() |
|
336
|
0 |
0 |
unless (defined $next) |
|
341
|
0 |
0 |
unless (defined $next or $certain) |
|
342
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
349
|
0 |
0 |
if (defined $next) |
|
353
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
360
|
1 |
1 |
unless defined $next |
|
368
|
0 |
0 |
if $self->{'_parent_'} != $$ |
|
373
|
0 |
0 |
if ($self->{'option'}{'tap'}) |
|
376
|
0 |
0 |
unless open my $fh, '<', $SEEN |
|
392
|
0 |
0 |
if /^\s*(#|$)/ |
|
398
|
0 |
0 |
if $self->{'option'}{'parallel'} and $self->{'_parent_'} != $$ |
|
410
|
0 |
1 |
@queue ? : |
|
422
|
1 |
0 |
if ($status == 200 || $status == 304 and $follow) { } |
|
|
0 |
0 |
elsif ($status == 301) { } |
|
430
|
0 |
0 |
if $l |