| line |
true |
false |
branch |
|
75
|
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') |
|
97
|
0 |
1 |
if $option{'help'} |
|
98
|
0 |
1 |
if $option{'manual'} |
|
105
|
0 |
1 |
if $option{'tutorial'} |
|
107
|
0 |
1 |
if $option{'version'} |
|
115
|
1 |
0 |
unless exists $option{'application'} |
|
127
|
0 |
1 |
unless $args{'option'} |
|
129
|
0 |
1 |
unless $args{'callbacks'} |
|
132
|
0 |
1 |
unless exists $option{'application'} |
|
135
|
0 |
1 |
if ($option{'tap'}) |
|
138
|
0 |
0 |
if ($option{'parallel'}) |
|
144
|
0 |
0 |
unless (exists $option{'destination'}) |
|
150
|
1 |
0 |
if $option{'quiet'} |
|
154
|
0 |
1 |
if $option{'url'} |
|
162
|
1 |
0 |
unless $option{'include'} |
|
179
|
1 |
0 |
ref $option{'application'} ? : |
|
183
|
0 |
1 |
if ($self->{'option'}{'parallel'}) |
|
200
|
0 |
1 |
$self->{'option'}{'filter'} ? : |
|
202
|
0 |
1 |
if ($self->{'option'}{'parallel'}) { } |
|
|
0 |
1 |
elsif ($self->{'option'}{'tap'}) { } |
|
217
|
0 |
1 |
ref $_ ? : |
|
222
|
0 |
2 |
if ($self->{'option'}{'parallel'}) |
|
223
|
0 |
0 |
if ($self->{'_parent_'} == $$) { } |
|
241
|
0 |
0 |
@ARGV ? : |
|
243
|
0 |
0 |
unless rename "$fh", $TODO |
|
250
|
0 |
0 |
if (not $self->{'_forked_'}) |
|
252
|
0 |
0 |
if (not my $pid = fork) { } |
|
|
0 |
0 |
elsif (not defined $pid) { } |
|
291
|
0 |
0 |
unless -e $TODO |
|
297
|
0 |
0 |
unless open my $fh, '<', $TODO |
|
310
|
0 |
2 |
if ($self->{'option'}{'parallel'}) { } |
|
313
|
0 |
0 |
if $self->{'_parent_'} == $$ |
|
320
|
0 |
0 |
-e $SEEN ? : |
|
|
0 |
0 |
unless open my $fh, -e $SEEN ? '+<' : '+>', $SEEN |
|
325
|
0 |
0 |
unless flock $seen_fh, LOCK_EX() |
|
333
|
0 |
0 |
unless (defined $next) |
|
338
|
0 |
0 |
unless (defined $next or $certain) |
|
339
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
346
|
0 |
0 |
if (defined $next) |
|
350
|
0 |
0 |
unless flock $seen_fh, LOCK_UN() |
|
357
|
1 |
1 |
unless defined $next |
|
365
|
0 |
0 |
if $self->{'_parent_'} != $$ |
|
370
|
0 |
0 |
if ($self->{'option'}{'tap'}) |
|
373
|
0 |
0 |
unless open my $fh, '<', $SEEN |
|
389
|
0 |
0 |
if /^\s*(#|$)/ |
|
395
|
0 |
0 |
if $self->{'option'}{'parallel'} and $self->{'_parent_'} != $$ |
|
407
|
0 |
1 |
@queue ? : |
|
419
|
1 |
0 |
if ($status eq '200' and $follow) { } |
|
|
0 |
0 |
elsif ($status eq '301') { } |
|
427
|
0 |
0 |
if $l |