| line |
true |
false |
branch |
|
257
|
1 |
6 |
defined $args->{'prompt'} ? : |
|
272
|
1 |
17 |
unless exists $args->{'name'} and defined $args->{'name'} |
|
273
|
1 |
16 |
unless exists $args->{'cmd_schema'} and defined $args->{'cmd_schema'} |
|
276
|
1 |
15 |
unless ref $args->{'cmd_schema'} eq "HASH" |
|
282
|
1 |
15 |
unless defined $schema->{'exec'} |
|
284
|
1 |
14 |
unless ref $schema->{'exec'} eq "CODE" |
|
287
|
6 |
8 |
if (exists $schema->{'args'} and defined $schema->{'args'}) |
|
288
|
3 |
3 |
unless ref $schema->{'args'} eq "ARRAY" |
|
290
|
1 |
2 |
if scalar @{$schema->{'args'};} < 1 |
|
293
|
1 |
1 |
unless ref $arg eq "HASH" |
|
299
|
2 |
6 |
if (exists $args->{'get_opts'} and defined $args->{'get_opts'}) |
|
300
|
1 |
1 |
unless ref $args->{'get_opts'} eq "CODE" |
|
310
|
0 |
0 |
if defined $self->{'hist_file'} |
|
325
|
0 |
0 |
if $input =~ /^(exit|quit)$/ |
|
327
|
0 |
0 |
unless $input |
|
329
|
0 |
0 |
if ($input eq "help") |
|
337
|
0 |
0 |
if ($self->{'passthrough'} and @args and $args[0] =~ /^\!/) |
|
343
|
0 |
0 |
if (defined $self->{'get_opts'}) |
|
356
|
0 |
0 |
if (defined $self->{'custom_logic'}) |
|
361
|
0 |
0 |
if (defined $result and ref $result eq "HASH") |
|
362
|
0 |
0 |
if (defined $result->{'action'}) |
|
363
|
0 |
0 |
if $result->{'action'} eq "next" |
|
364
|
0 |
0 |
if $result->{'action'} eq "last" |
|
366
|
0 |
0 |
if (defined $result->{'schema'}) |
|
374
|
0 |
0 |
if (exists $self->{'cmd_schema'}{$cmd}) { } |
|
381
|
0 |
0 |
if defined $self->{'hist_file'} |
|
388
|
1 |
4 |
if $line =~ /^\!/ |
|
393
|
3 |
1 |
unless $line =~ /\s$/ |
|
395
|
4 |
0 |
if (@words >= 1) |
|
399
|
2 |
2 |
if ($self->{'cmd_schema'}{$cmd}) |
|
403
|
0 |
2 |
unless $schema->{'args'} |
|
408
|
0 |
2 |
if (scalar @complete_words and exists $schema->{'args'}[$opt_arg_index]{$complete_words[-1]}) |
|
410
|
0 |
0 |
if defined $opt_arg |
|
419
|
4 |
2 |
if defined $value |
|
424
|
0 |
4 |
if $word eq $opt_arg |
|
431
|
0 |
2 |
unless @keys |
|
437
|
2 |
0 |
if (@words <= 1) |
|
454
|
0 |
0 |
unless $self->{'cmd_schema'}{$cmd}{'args'} |
|
460
|
0 |
0 |
defined $opt ? : |
|
473
|
0 |
0 |
if (-f $self->{'hist_file'}) |
|
474
|
0 |
0 |
unless open my $fh, "<", $self->{'hist_file'} |
|
488
|
0 |
0 |
unless open my $fh, ">", $self->{'hist_file'} |
|
489
|
0 |
0 |
if ($term->ReadLine =~ /Gnu/) |