| line |
true |
false |
branch |
|
62
|
1 |
0 |
if (/^\-[A-Za-z]+/u and length $_ > 2 and $CLEANUP) |
|
77
|
9 |
1 |
if (length $p >= 2 and substr($p, 0, 1) eq '-') { } |
|
82
|
9 |
0 |
if (exists $args{$name_param}) { } |
|
86
|
5 |
4 |
if (exists $args{$name_param}{'type'}) { } |
|
|
0 |
4 |
elsif (exists $args{$name_param}{'func'}) { } |
|
92
|
0 |
0 |
if (not exists $ARGV[0] or length $ARGV[0] == 2 and exists $args{substr $ARGV[0], 1, 2} and substr($ARGV[0], 0, 1) eq "-") |
|
113
|
0 |
9 |
if ($@) |
|
117
|
0 |
9 |
if (exists $Rex::Args::rex_opts{$name_param} and $type eq 'Single') { } |
|
122
|
1 |
8 |
if (exists $Rex::Args::rex_opts{$name_param}) { } |
|
123
|
1 |
0 |
unless (ref $Rex::Args::rex_opts{$name_param}) |
|
150
|
0 |
65 |
if (exists $Rex::Args::rex_opts{$opt}) |
|
159
|
13 |
3 |
if ($task) { } |
|
176
|
0 |
0 |
if (defined $val) |