| line |
true |
false |
branch |
|
39
|
0 |
0 |
(caller 2)[3] =~ /^App::Padadoy::(.+)/ ? : |
|
|
0 |
0 |
ref $_[0] ? : |
|
42
|
0 |
0 |
$caller ? : |
|
|
0 |
0 |
@_ ? : |
|
53
|
0 |
14 |
unless $self->{'quiet'} |
|
62
|
0 |
1 |
if ($config) |
|
66
|
0 |
0 |
if /^\s*$/ |
|
67
|
0 |
0 |
if (/^\s*([a-z]+)\s*[:=]\s*(.*?)\s*$/) { } |
|
|
0 |
0 |
elsif (not $_ =~ /^\s*#/) { } |
|
78
|
1 |
9 |
if defined $values{$_} |
|
96
|
0 |
1 |
if $self->{'remote'} and not $self->{'remote'} =~ qr"^[^\@]+\@[^:]+:[~/].*$" |
|
107
|
0 |
1 |
if $module and not $module =~ /^([a-z][a-z0-9]*(::[a-z][a-z0-9]*)*)$/i |
|
122
|
1 |
0 |
if ($module) { } |
|
189
|
0 |
0 |
if $@ |
|
205
|
0 |
0 |
unless cwd() eq $self->{'base'} |
|
207
|
0 |
0 |
if $_ ne $0 |
|
|
0 |
0 |
if grep {$_ ne 'padadoy.conf' if $_ ne $0;} glob('*') |
|
255
|
0 |
0 |
if ($pid) { } |
|
268
|
0 |
0 |
unless $self->{'config'} |
|
286
|
0 |
0 |
unless -d $path |
|
287
|
0 |
0 |
unless (-e $self->{$log}) |
|
312
|
0 |
0 |
if ($pid) { } |
|
322
|
0 |
0 |
unless $self->{'pidfile'} and -f $self->{'pidfile'} |
|
324
|
0 |
0 |
$pid =~ s/^(\d+).*$/$1/ms ? : |
|
331
|
0 |
0 |
unless $self->{'config'} |
|
336
|
0 |
0 |
if ($pid) { } |
|
346
|
0 |
0 |
$sock ? : |
|
351
|
0 |
0 |
if (@lsof) { } |
|
354
|
0 |
0 |
if not $pid2 or $f[1] < $pid2 |
|
360
|
0 |
0 |
if ($sock or $pid2) |
|
361
|
0 |
0 |
if ($pid and $pid eq $pid2) { } |
|
|
0 |
0 |
elsif (not $pid and $user and $user eq $self->{'user'}) { } |
|
374
|
0 |
1 |
if $self->{'config'} |
|
389
|
0 |
0 |
unless -d $git_dir |
|
392
|
0 |
0 |
if -e $directory |
|
395
|
0 |
0 |
if ($current) { } |
|
396
|
0 |
0 |
unless -d $current |
|
403
|
0 |
0 |
if (-d $local) |
|
457
|
0 |
0 |
unless -d $self->{'base'} |
|
463
|
0 |
0 |
unless -d $new |
|
486
|
0 |
0 |
unless $self->{'remote'} |
|
487
|
0 |
0 |
unless $command |
|
490
|
0 |
0 |
unless grep {$_ eq $command;} 'init', 'start', 'stop', 'restart', 'config', 'status', 'version' |
|
493
|
0 |
0 |
unless $self->{'remote'} =~ /^(.+):(.+)$/ |
|
495
|
0 |
0 |
if $dir =~ /\s/ |