| line |
true |
false |
branch |
|
34
|
16 |
0 |
if exists $ENV{'PERL5_SMOKEBOX_DIR'} and defined $ENV{'PERL5_SMOKEBOX_DIR'} |
|
39
|
0 |
0 |
unless exists $ENV{$env} |
|
40
|
0 |
0 |
unless defined $ENV{$env} and length $ENV{$env} |
|
41
|
0 |
0 |
if -d $ENV{$env} |
|
49
|
0 |
3 |
unless -d $smokebox_dir |
|
51
|
0 |
3 |
unless -e $conf_file |
|
54
|
3 |
0 |
if (defined $Config->{'_'}) |
|
59
|
2 |
1 |
if scalar keys %{$Config;} |
|
66
|
0 |
2 |
if (-e $timestamp) |
|
67
|
0 |
0 |
unless open my $fh, '<', $timestamp |
|
71
|
0 |
0 |
if ($prefix and $ts) |
|
77
|
0 |
2 |
if wantarray |
|
83
|
0 |
3 |
unless (open JOBS, "< $jobs") |
|
131
|
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'}) |
|
133
|
0 |
2 |
if $version |
|
135
|
2 |
0 |
unless $config{'perl'} and -e $config{'perl'} |
|
136
|
0 |
2 |
if $config{'debug'} |
|
141
|
2 |
0 |
if ($config{'jobs'} and -e $config{'jobs'}) |
|
143
|
2 |
0 |
if scalar @jobs |
|
152
|
0 |
2 |
if (keys %{$env;}) |
|
157
|
0 |
2 |
if ($config{'home'} and not -e $config{'home'}) |
|
158
|
0 |
0 |
unless mkpath($config{'home'}) |
|
161
|
0 |
2 |
if ($config{'home'} and not -d $config{'home'}) |
|
171
|
0 |
2 |
if $self->{'home'} |
|
173
|
0 |
0 |
if $self->{'perlenv'} and $ENV{'PERL5LIB'} |
|
179
|
0 |
2 |
scalar keys %{$$self{'env'};} ? : |
|
202
|
2 |
0 |
$self->{'backend'} ? : |
|
226
|
2 |
2 |
unless $reason eq 'create' |
|
244
|
0 |
2 |
if $stats[1] |
|
245
|
0 |
2 |
if $stats[2] |
|
249
|
0 |
2 |
if $self->{'noepoch'} |
|
251
|
0 |
2 |
unless -d $smokebox_dir |
|
254
|
0 |
2 |
unless open my $ts, '>', 'File::Spec'->catfile($smokebox_dir, 'timestamp') |
|
264
|
0 |
2 |
unless ($result->{'status'} == 0) |
|
281
|
2 |
0 |
if ($version and $archname and $osvers) |
|
286
|
2 |
0 |
unless $self->{'noepoch'} |
|
288
|
2 |
0 |
if ($self->{'indices'}) |
|
291
|
2 |
0 |
$self->{'backend'} ? : |
|
304
|
0 |
2 |
unless ($result->{'status'} == 0) |
|
315
|
2 |
0 |
if ($self->{'jobs'} and ref $self->{'jobs'} eq 'ARRAY') |
|
323
|
10 |
0 |
$self->{'backend'} ? : |
|
|
0 |
10 |
$self->{'nolog'} ? : |
|
328
|
0 |
2 |
if ($self->{'recent'}) |
|
333
|
0 |
0 |
defined $self->{'_epoch'} ? : |
|
336
|
0 |
2 |
if ($self->{'package'}) |
|
344
|
0 |
2 |
if ($self->{'author'}) |
|
352
|
0 |
2 |
if ($self->{'phalanx'}) |
|
359
|
0 |
2 |
if ($self->{'random'}) |
|
366
|
2 |
0 |
if not $self->{'recent'} and $self->{'package'} || $self->{'author'} || $self->{'phalanx'} || $self->{'jobs'} && ref $self->{'jobs'} eq 'ARRAY' |
|
371
|
0 |
0 |
defined $self->{'_epoch'} ? : |
|
378
|
0 |
0 |
if ($data->{'error'}) |
|
382
|
0 |
0 |
if ($state eq 'recent' and $self->{'reverse'}) |
|
392
|
0 |
0 |
$self->{'backend'} ? : |
|
|
0 |
0 |
$self->{'nolog'} ? : |
|
406
|
3 |
7 |
if $run_time > $self->{'stats'}{'max_run'} |
|
407
|
2 |
8 |
if $self->{'stats'}{'min_run'} == 0 |
|
408
|
0 |
10 |
if $run_time < $self->{'stats'}{'min_run'} |
|
412
|
0 |
10 |
if $result->{'idle_kill'} |
|
413
|
0 |
10 |
if $result->{'excess_kill'} |