| line |
true |
false |
branch |
|
55
|
29 |
1 |
unless ($argv) |
|
65
|
30 |
0 |
unless ($self->op) |
|
72
|
27 |
3 |
unless ($self->response->halted) |
|
81
|
14 |
13 |
unless ($ok) |
|
84
|
9 |
5 |
unless ($completion_parameter) |
|
90
|
18 |
12 |
unless ($self->response->halted) |
|
94
|
5 |
13 |
if ($completion_parameter) { } |
|
125
|
13 |
8 |
unless ref $text or $text =~ /\n\z/ |
|
131
|
1 |
27 |
unless ref $text or $text =~ /\n\z/ |
|
146
|
0 |
0 |
if (my $exit = $res->exit) |
|
156
|
1 |
4 |
unless my $shell = $ENV{'PERL5_APPSPECRUN_SHELL'} |
|
160
|
0 |
4 |
unless my $completion = $param->completion |
|
162
|
2 |
2 |
if (ref $completion) { } |
|
163
|
0 |
2 |
unless $op = $completion->{'op'} |
|
166
|
0 |
2 |
unless my $possible_values = $param->values |
|
167
|
0 |
2 |
unless $op = $possible_values->{'op'} |
|
177
|
2 |
2 |
if ($unique) |
|
180
|
0 |
2 |
unless XXX |
|
190
|
2 |
7 |
if (ref $item eq 'HASH') { } |
|
192
|
0 |
2 |
if $unique and $seen{$name}++ |
|
197
|
1 |
6 |
if $unique and $seen{$item}++ |
|
212
|
9 |
0 |
if ($key eq 'parameters' or $key eq 'options') { } |
|
243
|
0 |
0 |
unless (defined wantarray) |
|
249
|
0 |
16 |
$self->colorize($out) ? : |
|
254
|
0 |
31 |
if (($ENV{'PERL5_APPSPECRUN_COLOR'} // '') eq 'always') |
|
257
|
29 |
2 |
if (($ENV{'PERL5_APPSPECRUN_COLOR'} // '') eq 'never') |
|
260
|
0 |
2 |
if ($out eq 'out' and -t STDOUT or $out eq 'err' and -t STDERR) |
|
277
|
10 |
32 |
if ($multiple) { } |
|
317
|
2 |
33 |
unless (defined $cmd) |
|
318
|
1 |
1 |
if (not $op or $subcommand_required) |
|
331
|
2 |
31 |
unless ($cmd_spec = $commands->{$cmd}) |
|
349
|
25 |
6 |
if $cmd_spec->op |
|
350
|
3 |
28 |
if $cmd_spec->class |
|
358
|
27 |
3 |
unless ($self->response->halted) |
|
359
|
1 |
26 |
unless ($op) |
|
360
|
0 |
1 |
if ($spec->has_subcommands) { } |
|
375
|
26 |
1 |
if ($op =~ /^::/) |
|
392
|
15 |
0 |
$_ eq 'error' ? : |
|
394
|
0 |
15 |
if $self->colorize($out) |
|
403
|
0 |
56 |
unless exists $EVENTS{$event} |