| line |
true |
false |
branch |
|
16
|
0 |
1 |
unless $main::DEBUG |
|
35
|
2 |
2 |
unless (defined $main::WHOAMI) |
|
37
|
2 |
0 |
if (my $wb = File::Which::which('whoami')) { } |
|
48
|
0 |
4 |
unless $main::WHOAMI |
|
54
|
0 |
0 |
unless main::running_as_root() |
|
59
|
0 |
1 |
unless my $whoami = main::whoami() |
|
60
|
0 |
1 |
unless $whoami eq 'root' |
|
66
|
1 |
1 |
unless main::user_exists($name) |
|
71
|
0 |
1 |
unless $id =~ /^\d+$/ |
|
79
|
1 |
3 |
unless $u{$name} |
|
85
|
0 |
1 |
unless main::user_exists($name) |
|
89
|
0 |
1 |
unless $id =~ /^\d+$/ |
|
103
|
0 |
1 |
unless my $mod = File::chmod::getmod($abs) |
|
121
|
0 |
0 |
if ($opts =~ s/v\:?|h\:?|d\:?//gs) |
|
122
|
0 |
0 |
if main::DEBUG() |
|
132
|
0 |
0 |
if ($$o{'v'}) |
|
133
|
0 |
0 |
if (defined $main::VERSION) |
|
141
|
0 |
0 |
if ($$o{'d'}) |
|
146
|
0 |
0 |
if ($$o{'h'}) |
|
158
|
0 |
0 |
unless scalar @ARGV |
|
161
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
162
|
0 |
0 |
unless -e $abs |
|
166
|
0 |
0 |
unless scalar @argv |
|
173
|
0 |
0 |
unless scalar @ARGV |
|
176
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
177
|
0 |
0 |
unless -e $abs |
|
180
|
0 |
0 |
unless scalar @argv |
|
186
|
0 |
0 |
unless scalar @ARGV |
|
189
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
192
|
0 |
0 |
unless scalar @argv |
|
203
|
0 |
0 |
if ($val eq 'y') { } |
|
|
0 |
0 |
elsif ($val eq 'n') { } |
|
234
|
0 |
0 |
if (defined $main::usage) { } |
|
|
0 |
0 |
elsif (defined &main::usage) { } |
|
262
|
0 |
1 |
unless my $name = $0 |
|
268
|
0 |
4 |
unless my $name = $0 |
|
279
|
0 |
3 |
unless $abs_conf |
|
283
|
1 |
2 |
unless -f $abs_conf |
|
292
|
0 |
3 |
unless $ENV{'HOME'} |
|
297
|
0 |
1 |
unless $ENV{'HOME'} |
|
303
|
0 |
1 |
if -d $d |
|
304
|
0 |
1 |
unless mkdir $d |
|
317
|
6 |
0 |
unless $^O =~ /^$_/i |
|
326
|
0 |
0 |
unless my $binpath = File::Which::which($bin) |
|
333
|
0 |
0 |
if print STDERR (shift()) . "\n" |
|
334
|
0 |
0 |
if say("$0, " . (shift())) |