line |
true |
false |
branch |
24
|
0 |
0 |
if ($^O eq 'freebsd') { } |
46
|
0 |
0 |
unless $quiet or $batch_mode |
51
|
0 |
0 |
unless defined $mess |
54
|
0 |
0 |
if $batch_mode |
57
|
0 |
0 |
unless $isa_tty |
59
|
0 |
0 |
defined $def ? : |
66
|
0 |
0 |
if (not $isa_tty and eof STDIN) { } |
71
|
0 |
0 |
if (defined $ans) { } |
79
|
0 |
0 |
!defined($ans) || $ans eq '' ? : |
89
|
0 |
0 |
$default ? : |
90
|
0 |
0 |
$default ? : |
92
|
0 |
0 |
if ($result =~ /^y/i) |
100
|
0 |
0 |
if system(@_) == 0 |
103
|
0 |
0 |
if ($!) |
106
|
0 |
0 |
if ($? > 0) |
107
|
0 |
0 |
if $? & 127 |
108
|
0 |
0 |
if $? & 128 |
109
|
0 |
0 |
if $? >> 8 |
116
|
0 |
0 |
unless open my $fh, '<', $file |
136
|
0 |
0 |
unless &GetOptions('local!', \$opt_local, 'batch-mode', \$batch_mode, 'quiet', \$quiet, 'reconfigure!', \$opt_reconfigure, 'service-dir=s', \$opt_service_dir, 'data-dir=s', \$opt_data_dir, 'log-dir=s', \$opt_log_dir, 'default-user=s', \$opt_default_user, 'sticky-777!', \$opt_sticky_777, 'install-services!', \$opt_install_services, 'crontab!', \$opt_crontab) |
150
|
0 |
0 |
if @ARGV |
155
|
0 |
0 |
unless ($@) |
157
|
0 |
0 |
unless $go |
164
|
0 |
0 |
unless ($batch_mode) |
170
|
0 |
0 |
$> ? : |
172
|
0 |
0 |
unless (defined $local) |
173
|
0 |
0 |
if ($is_root) { } |
175
|
0 |
0 |
unless $ok |
179
|
0 |
0 |
unless $ok |
185
|
0 |
0 |
if ($local) |
187
|
0 |
0 |
unless (defined $local_dir) |
190
|
0 |
0 |
unless (-d $local_dir) |
200
|
0 |
0 |
defined $local_dir ? : |
201
|
0 |
0 |
if defined $opt_service_dir |
210
|
0 |
0 |
defined $local_dir ? : |
211
|
0 |
0 |
if defined $opt_data_dir |
220
|
0 |
0 |
defined $local_dir ? : |
221
|
0 |
0 |
if defined $opt_log_dir |
227
|
0 |
0 |
if ($is_root) { } |
236
|
0 |
0 |
unless (defined $default_user) |
243
|
0 |
0 |
if ($is_root) |
278
|
0 |
0 |
unless my $ubic_watchdog_full_name = which('ubic-watchdog') |
282
|
0 |
0 |
if ($perls[0] =~ /perlbrew/) { } |
|
0 |
0 |
elsif (@perls > 1) { } |
286
|
0 |
0 |
unless ($HOME) |
290
|
0 |
0 |
unless (-e $perlbrew_config) |
305
|
0 |
0 |
if ($ENV{'PERL5LIB'}) |
317
|
0 |
0 |
defined $local_dir ? : |
324
|
0 |
0 |
unless $run |
335
|
0 |
0 |
unless chmod 01777, "$data_dir/$subdir" |
340
|
0 |
0 |
if ($install_services) |
372
|
0 |
0 |
if ($enable_crontab) |
380
|
0 |
0 |
if ($stderr and not $stderr =~ /no crontab/) |
387
|
0 |
0 |
unless open my $fh, '|-', 'crontab -' |
389
|
0 |
0 |
unless print {$fh;} @_ |
393
|
0 |
0 |
if ($crontab_wrap_bash) |
398
|
0 |
0 |
unless close $fh |
408
|
0 |
0 |
if ($install_services) |