| line |
true |
false |
branch |
|
36
|
16 |
0 |
if exists $ENV{'PERL5_SMOKEBOX_DIR'} and defined $ENV{'PERL5_SMOKEBOX_DIR'} |
|
41
|
0 |
0 |
unless exists $ENV{$env} |
|
42
|
0 |
0 |
unless defined $ENV{$env} and length $ENV{$env} |
|
43
|
0 |
0 |
if -d $ENV{$env} |
|
51
|
0 |
3 |
unless -d $smokebox_dir |
|
53
|
0 |
3 |
unless -e $conf_file |
|
56
|
3 |
0 |
if (defined $Config->{'_'}) |
|
61
|
2 |
1 |
if scalar keys %{$Config;} |
|
68
|
0 |
2 |
if (-e $timestamp) |
|
69
|
0 |
0 |
unless open my $fh, '<', $timestamp |
|
73
|
0 |
0 |
if ($prefix and $ts) |
|
79
|
0 |
2 |
if wantarray |
|
85
|
0 |
3 |
unless (open JOBS, "< $jobs") |
|
133
|
0 |
2 |
unless &GetOptions('help', sub {
pod2usage(1);
}
, 'version', sub {
$version = 1;
}
, 'debug', \$config{'debug'}, 'perl=s', \$config{'perl'}, 'indices', \$config{'indices'}, 'recent', \$config{'recent'}, 'jobs=s', \$config{'jobs'}, 'backend=s', \$config{'backend'}, 'author=s', \$config{'author'}, 'package=s', \$config{'package'}, 'phalanx', \$config{'phalanx'}, 'url=s', \$config{'url'}, 'reverse', \$config{'reverse'}, 'home=s', \$config{'home'}, 'nolog', \$config{'nolog'}, 'noepoch', \$config{'noepoch'}, 'rss', \$config{'rss'}, 'random', \$config{'random'}, 'perlenv', \$config{'perlenv'}) |
|
135
|
0 |
2 |
if $version |
|
137
|
2 |
0 |
unless $config{'perl'} and -e $config{'perl'} |
|
138
|
0 |
2 |
if $config{'debug'} |
|
143
|
2 |
0 |
if ($config{'jobs'} and -e $config{'jobs'}) |
|
145
|
2 |
0 |
if scalar @jobs |
|
154
|
0 |
2 |
if (keys %{$env;}) |
|
159
|
0 |
2 |
if ($config{'home'} and not -e $config{'home'}) |
|
160
|
0 |
0 |
unless mkpath($config{'home'}) |
|
163
|
0 |
2 |
if ($config{'home'} and not -d $config{'home'}) |
|
173
|
0 |
2 |
if $self->{'home'} |
|
175
|
0 |
0 |
if $self->{'perlenv'} and $ENV{'PERL5LIB'} |
|
181
|
0 |
2 |
scalar keys %{$$self{'env'};} ? : |
|
204
|
2 |
0 |
$self->{'backend'} ? : |
|
228
|
2 |
2 |
unless $reason eq 'create' |
|
246
|
0 |
2 |
if $stats[1] |
|
247
|
0 |
2 |
if $stats[2] |
|
251
|
0 |
2 |
if $self->{'noepoch'} |
|
253
|
0 |
2 |
unless -d $smokebox_dir |
|
256
|
0 |
2 |
unless open my $ts, '>', 'File::Spec'->catfile($smokebox_dir, 'timestamp') |
|
266
|
0 |
2 |
unless ($result->{'status'} == 0) |
|
283
|
2 |
0 |
if ($version and $archname and $osvers) |
|
288
|
2 |
0 |
unless $self->{'noepoch'} |
|
290
|
2 |
0 |
if ($self->{'indices'}) |
|
293
|
2 |
0 |
$self->{'backend'} ? : |
|
306
|
0 |
2 |
unless ($result->{'status'} == 0) |
|
317
|
2 |
0 |
if ($self->{'jobs'} and ref $self->{'jobs'} eq 'ARRAY') |
|
325
|
10 |
0 |
$self->{'backend'} ? : |
|
|
0 |
10 |
$self->{'nolog'} ? : |
|
330
|
0 |
2 |
if ($self->{'recent'}) |
|
335
|
0 |
0 |
defined $self->{'_epoch'} ? : |
|
338
|
0 |
2 |
if ($self->{'package'}) |
|
346
|
0 |
2 |
if ($self->{'author'}) |
|
354
|
0 |
2 |
if ($self->{'phalanx'}) |
|
361
|
0 |
2 |
if ($self->{'random'}) |
|
368
|
2 |
0 |
if not $self->{'recent'} and $self->{'package'} || $self->{'author'} || $self->{'phalanx'} || $self->{'jobs'} && ref $self->{'jobs'} eq 'ARRAY' |
|
373
|
0 |
0 |
defined $self->{'_epoch'} ? : |
|
380
|
0 |
0 |
if ($data->{'error'}) |
|
384
|
0 |
0 |
if ($state eq 'recent' and $self->{'reverse'}) |
|
394
|
0 |
0 |
$self->{'backend'} ? : |
|
|
0 |
0 |
$self->{'nolog'} ? : |
|
408
|
2 |
8 |
if $run_time > $self->{'stats'}{'max_run'} |
|
409
|
2 |
8 |
if $self->{'stats'}{'min_run'} == 0 |
|
410
|
0 |
10 |
if $run_time < $self->{'stats'}{'min_run'} |
|
414
|
0 |
10 |
if $result->{'idle_kill'} |
|
415
|
0 |
10 |
if $result->{'excess_kill'} |