| line |
true |
false |
branch |
|
69
|
0 |
3 |
if (not $_test_mode) |
|
70
|
0 |
0 |
if ($where =~ /stderr/iu) { } |
|
96
|
0 |
0 |
if (exists $_app_simple_objects{'logger'}) { } |
|
100
|
0 |
0 |
if defined $_app_simple_objects{'logger'} |
|
116
|
0 |
0 |
if (not $func or ref $func ne 'CODE') { } |
|
136
|
0 |
0 |
if $verbose |
|
142
|
0 |
0 |
if (@_ % 2) { } |
|
143
|
0 |
0 |
if $verbose |
|
147
|
0 |
0 |
if $verbose |
|
164
|
0 |
28 |
if ($opt =~ /^(.*?)\|(.*?)=/u) { } |
|
|
13 |
15 |
elsif ($opt =~ /^(.*?)\|(.*?)$/u) { } |
|
|
4 |
11 |
elsif ($opt =~ /^(.*?)=/u) { } |
|
|
11 |
0 |
elsif ($opt =~ /^(.*?)$/u) { } |
|
|
0 |
0 |
elsif ($opt =~ /^(.*?)\|(.*?)\|(.*?)\$/u) { } |
|
167
|
0 |
0 |
if ($seen{$long}) { } |
|
|
0 |
0 |
elsif ($seen{$short}) { } |
|
183
|
1 |
12 |
if ($seen{$long}) |
|
190
|
0 |
12 |
if ($seen{$short}) |
|
200
|
0 |
4 |
if ($seen{$long}) |
|
210
|
0 |
11 |
if ($seen{$long}) |
|
221
|
0 |
0 |
if ($seen{$long}) |
|
227
|
0 |
0 |
if ($seen{$short}) |
|
233
|
0 |
0 |
if ($seen{$extra}) |
|
252
|
0 |
12 |
@_ % 2 ? : |
|
260
|
0 |
12 |
if ($args{'log_file'}) |
|
264
|
0 |
12 |
if ($args{'debug'}) |
|
269
|
12 |
0 |
if $args{'help_text'} |
|
271
|
0 |
12 |
if $args{'help_cmdline'} |
|
273
|
0 |
12 |
if ref $args{'options'} ne 'HASH' |
|
288
|
1 |
11 |
if ($msg) |
|
306
|
15 |
10 |
if (ref $args{'options'}{$o} eq 'HASH') { } |
|
308
|
1 |
14 |
unless $args{'options'}{$o}{'desc'} |
|
310
|
8 |
6 |
if $full_options{$name}{'required'} |
|
328
|
14 |
10 |
if ($name ne 'help') |
|
333
|
8 |
6 |
if $full_options{$name}{'required'} |
|
336
|
4 |
10 |
if $full_options{$name}{'default'} |
|
342
|
8 |
2 |
if ($has_required) |
|
343
|
0 |
8 |
$has_required > 1 ? : |
|
349
|
0 |
10 |
$args{'ctrl_c'} ? : |
|
353
|
0 |
10 |
if $args{'cleanup'} |
|
359
|
0 |
10 |
if $_cmd_line_options{'help'} |
|
364
|
0 |
20 |
unless $full_options{$name}{'desc'} |
|
365
|
8 |
12 |
if ($full_options{$name}{'required'}) |
|
371
|
1 |
0 |
unless $_cmd_line_options{$name} or $full_options{$name}{'default'} |
|
373
|
6 |
13 |
if ($full_options{$name}{'depends'}) |
|
374
|
1 |
5 |
unless ($_cmd_line_options{$full_options{$name}{'depends'}}) |
|
383
|
4 |
14 |
if ($full_options{$name}{'default'}) |
|
385
|
0 |
4 |
unless $_cmd_line_options{$name} |
|
389
|
3 |
8 |
if ($_cmd_line_options{$name} and $full_options{$name}{'validate'}) |
|
391
|
0 |
3 |
if !ref($full_options{$name}{'validate'}) eq 'CODE' |
|
398
|
0 |
0 |
unless $full_options{$name}{'required'} or $full_options{$name}{'default'} |
|
401
|
1 |
1 |
unless $result |
|
435
|
0 |
0 |
if $_app_simple_ctrlc_count++ |
|
451
|
3 |
0 |
if ($_test_mode) |
|
473
|
3 |
0 |
if ($msg) { } |
|
493
|
0 |
0 |
if $msg |
|
504
|
0 |
0 |
if ($rootdir) |
|
505
|
0 |
0 |
unless chroot $rootdir |
|
515
|
0 |
0 |
if ($pid) |
|
518
|
0 |
0 |
unless defined $pid |
|
523
|
0 |
0 |
unless POSIX::setsid() |
|
536
|
0 |
0 |
unless my $command = $args{'command'} |
|
559
|
0 |
2 |
if $timeout |
|
574
|
0 |
9 |
unless $file |
|
578
|
1 |
8 |
if ($file =~ m[^\.\./]u) |
|
582
|
2 |
7 |
if ($file =~ m[^\./]u or $file eq '.') |
|
608
|
29 |
26 |
length $_ > 1 ? : |
|
747
|
0 |
0 |
if ($rgb eq 'black') { } |
|
|
0 |
0 |
elsif ($rgb eq 'red') { } |
|
|
0 |
0 |
elsif ($rgb eq 'green') { } |
|
|
0 |
0 |
elsif ($rgb eq 'blue') { } |
|
|
0 |
0 |
elsif ($rgb eq 'magenta') { } |
|
|
0 |
0 |
elsif ($rgb eq 'cyan') { } |
|
|
0 |
0 |
elsif ($rgb eq 'white') { } |
|
|
0 |
0 |
elsif ($rgb eq 'yellow') { } |
|
|
0 |
0 |
elsif ($rgb eq 'grey') { } |
|
766
|
0 |
0 |
$out eq '' ? : |
|
767
|
0 |
0 |
!defined($bg) ? : |
|
773
|
0 |
0 |
if (length $hash eq 1) |
|
785
|
0 |
0 |
if ($code{$source} eq $hash) |
|
828
|
0 |
2 |
if ($_app_simple_cleanup_func) |