| line |
true |
false |
branch |
|
37
|
10 |
0 |
if @_ |
|
57
|
10 |
60 |
if $opt eq "RCFILE" |
|
58
|
10 |
50 |
if (exists $opt{$opt}) |
|
63
|
1 |
9 |
if (my $rc = delete $opt{'RCFILE'}) |
|
64
|
0 |
1 |
ref $rc eq 'ARRAY' ? : |
|
70
|
0 |
10 |
if %opt |
|
78
|
0 |
46 |
if (@_) { } |
|
94
|
2 |
20 |
if ($obj->{'IGNORE_NO_FILE'} and my $file = $arg{'FILE'}) |
|
95
|
0 |
2 |
unless -f $file |
|
111
|
4 |
20 |
if (my $mod = $obj->find_module($name)) |
|
121
|
2 |
22 |
ref $base ? : |
|
125
|
4 |
7 |
if ($_->module eq $module) |
|
152
|
0 |
8 |
unless my($key) = $a =~ /^([-\w]+)/u |
|
162
|
10 |
0 |
if (my $default = $obj->{'DEFAULT'}) |
|
163
|
0 |
10 |
if (my $bucket = eval {
do {
$obj->load_module($default)
}
}) { } |
|
|
0 |
10 |
elsif (not $@ =~ /Can't locate|need to install/u) { } |
|
169
|
10 |
0 |
if $obj->{'PARSE_MODULE_OPT'} |
|
179
|
0 |
35 |
if $start eq "" |
|
183
|
11 |
32 |
if (my($modpart) = $argv->[0] =~ /^$start_re(.+)/u) |
|
185
|
11 |
0 |
if (my $mod = $obj->parseopt($modpart, $argv)) { } |
|
205
|
11 |
0 |
if ($mod =~ s/
^ (? \w+ (?: :: \w+)* )
(?:
::
(?
\w+
(?: (? [(]) | = ) ## start with '(' or '='
(? [^)]* ) ## optional arg list
(?() [)] | ) ## close ')' or none
)
)?
$
/$+{'name'}/ux) |
|
221
|
0 |
11 |
unless (my $bucket = eval {
do {
$obj->load_module($mod)
}
}) |
|
222
|
0 |
0 |
if ($@ =~ /Can't locate|need to install/u) { } |
|
223
|
0 |
0 |
if ($obj->{'IGNORE_NO_MODULE'}) { } |
|
235
|
0 |
11 |
if ($call) |
|
255
|
6 |
6 |
if (my(@s) = $_->default) { } |
|
269
|
0 |
87 |
if $argv->[$i] eq "--" |
|
275
|
6 |
100 |
if (ref $current eq 'ARRAY') { } |
|
287
|
87 |
13 |
unless (@s) |
|
288
|
81 |
6 |
unless $current =~ /^(.+?)=(.*)/u |
|
289
|
6 |
0 |
unless @s = $bucket->getopt($1) |
|
310
|
4 |
0 |
@follow ? : |
|
311
|
14 |
5 |
unless /\A \$ < # $<
(? move|remove|copy|ignore ) # command
(?: \( (? -?\d+ ) ? # (off
(?: ,(? -?\d+ ))? \) )? # ,len)
> \z # >
/ux |
|
318
|
1 |
4 |
if $+{'cmd'} eq "ignore" |
|
320
|
1 |
3 |
$+{'cmd'} eq 'copy' ? : |
|
324
|
4 |
0 |
defined $+{'len'} ? : |
|
|
0 |
4 |
@$p == 0 ? : |
|
325
|
1 |
3 |
$+{'cmd'} eq 'remove' ? : |
|
329
|
9 |
10 |
if $modified |
|
332
|
0 |
19 |
if (@module = $obj->modopt(\@s)) |
|
338
|
19 |
0 |
if $i < @$argv |
|
344
|
39 |
0 |
unless $debug |
|
345
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
352
|
0 |
0 |
if (@$a > 0) { } |
|
366
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (length $_ == 0) { } |
|
379
|
0 |
0 |
ref $class eq 'ARRAY' ? : |
|
382
|
0 |
0 |
if $_ ne "" |