| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless $uname =~ /\w+/ |
|
28
|
0 |
0 |
system('id', $uname) == 0 ? : |
|
33
|
4 |
2 |
if (@_) |
|
37
|
4 |
16 |
if (defined $LEOCHARRE::CLI2::OPT{$_}) |
|
38
|
2 |
2 |
unless exists $want{$_} |
|
43
|
1 |
2 |
unless $want{$_} |
|
50
|
1 |
9 |
if defined $LEOCHARRE::CLI2::OPT{$_} |
|
52
|
1 |
1 |
unless @selected |
|
53
|
1 |
0 |
wantarray ? : |
|
58
|
0 |
2 |
unless -f $abs |
|
61
|
0 |
2 |
unless open FILE, '<', $abs |
|
63
|
1 |
1 |
if (wantarray) { } |
|
66
|
0 |
1 |
unless @lines and scalar @lines |
|
75
|
0 |
1 |
unless length $txt |
|
85
|
0 |
1 |
unless defined $content |
|
86
|
0 |
1 |
unless open FILE, '>', $abs |
|
103
|
7 |
0 |
unless 'main'->can('debug') |
|
104
|
7 |
0 |
unless 'main'->can('usage') |
|
122
|
0 |
7 |
if ($arg =~ /^\[(.+)\]$/) |
|
128
|
0 |
7 |
if ($arg =~ /^\((.+)\)$/) |
|
135
|
0 |
7 |
if ($arg =~ / /) |
|
144
|
4 |
3 |
if ('LEOCHARRE::CLI2'->can($arg) or $LEOCHARRE::CLI2::EXPORT_TAGS{$tag}) |
|
184
|
13 |
1 |
unless $LEOCHARRE::CLI2::OPT_STRING =~ /$l/ |
|
215
|
1 |
13 |
unless defined %ARGV |
|
216
|
14 |
0 |
if (my $key = shift()) |
|
229
|
0 |
5 |
unless defined $arg |
|
235
|
0 |
5 |
unless ($isf or $isd) |
|
245
|
2 |
3 |
if $isf and push @files, $abs |
|
249
|
1 |
0 |
if ($ARGV{'DIRS_COUNT'} = scalar @dirs || 0) { } |
|
257
|
1 |
0 |
if ($ARGV{'FILES_COUNT'} = scalar @files || 0) |
|
268
|
0 |
3 |
unless _argv('FILES') |
|
270
|
0 |
2 |
unless _argv('DIRS') |
|
282
|
0 |
7 |
if $main::opt_h and print STDERR &main::usage |
|
288
|
10 |
2 |
if $main::opt_d |
|
299
|
0 |
0 |
if ($val eq 'y') { } |
|
|
0 |
0 |
elsif ($val eq 'n') { } |
|
317
|
0 |
0 |
if $script_version |
|
319
|
0 |
0 |
if $script_description |
|
321
|
0 |
0 |
if ($script_man) |
|
322
|
0 |
0 |
unless ($script_man =~ /man /) |
|
327
|
0 |
0 |
if ($script_also) |
|
337
|
0 |
0 |
$opt eq 'd' ? : |
|
|
0 |
0 |
$opt eq 'h' ? : |
|
342
|
0 |
0 |
unless ($desc) |
|
344
|
0 |
0 |
if ($main::OPT_STRING =~ /$opt\:/) |