| line |
true |
false |
branch |
|
14
|
0 |
0 |
if (defined $val) |
|
22
|
0 |
0 |
if (defined $val) |
|
39
|
0 |
0 |
unless $whoami eq 'root' |
|
47
|
0 |
0 |
if ($opts =~ s/v\:?|h\:?//gs) |
|
48
|
0 |
0 |
if main::DEBUG() |
|
57
|
0 |
0 |
if ($$o{'v'}) |
|
58
|
0 |
0 |
if (defined $main::VERSION) |
|
67
|
0 |
0 |
if ($$o{'h'}) |
|
76
|
0 |
0 |
if print `man $name` |
|
80
|
0 |
1 |
unless my $name = $0 |
|
87
|
0 |
0 |
unless scalar @ARGV |
|
90
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
91
|
0 |
0 |
unless -e $abs |
|
95
|
0 |
0 |
unless scalar @argv |
|
102
|
0 |
0 |
unless scalar @ARGV |
|
105
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
106
|
0 |
0 |
unless -e $abs |
|
109
|
0 |
0 |
unless scalar @argv |
|
115
|
0 |
0 |
unless scalar @ARGV |
|
118
|
0 |
0 |
unless my $abs = Cwd::abs_path($_) |
|
121
|
0 |
0 |
unless scalar @argv |
|
134
|
0 |
0 |
if ($val eq 'y') { } |
|
|
0 |
0 |
elsif ($val eq 'n') { } |