| line |
true |
false |
branch |
|
101
|
0 |
0 |
unless (defined $args{'on_quit'}) |
|
104
|
0 |
0 |
unless (ref $args{'on_quit'} eq 'CODE') |
|
112
|
0 |
0 |
if (exists $$self{'cli'}{$name}) |
|
113
|
0 |
0 |
if Lim::WARN() |
|
117
|
0 |
0 |
if (defined(my $obj = $module->CLI('cli', $self))) |
|
129
|
0 |
0 |
if (exists $$self{'cli'}{$name}) |
|
130
|
0 |
0 |
if Lim::WARN() |
|
134
|
0 |
0 |
if (defined(my $obj = $module->CLI('cli', $self))) |
|
146
|
0 |
0 |
if (not $@) { } |
|
150
|
0 |
0 |
unless (defined $self) |
|
161
|
0 |
0 |
unless (defined $self) |
|
168
|
0 |
0 |
if ($$self{'current'}) |
|
173
|
0 |
0 |
if (scalar @parts) { } |
|
176
|
0 |
0 |
if (exists $$self{'cli'}{$part}) { } |
|
180
|
0 |
0 |
unless (exists $$cmd{$part} and ref $$cmd{$part} eq 'HASH') |
|
181
|
0 |
0 |
if ($$self{'no_completion'}++ == 2) |
|
182
|
0 |
0 |
if (ref $$cmd{$part} eq 'ARRAY') { } |
|
183
|
0 |
0 |
if (@{$$cmd{$part};} == 1) { } |
|
|
0 |
0 |
elsif (@{$$cmd{$part};} == 2) { } |
|
204
|
0 |
0 |
if ($builtins) { } |
|
212
|
0 |
0 |
if ($$self{'no_completion'}++ == 2) |
|
227
|
0 |
0 |
if (&Lim::Config()->{'cli'}{'history_file'} and -r &Lim::Config()->{'cli'}{'history_file'}) |
|
238
|
0 |
0 |
unless (defined $self) |
|
246
|
0 |
0 |
unless (defined $self) |
|
256
|
0 |
0 |
unless (defined $self) |
|
266
|
0 |
0 |
if (defined(my $appender = 'Log::Log4perl'->appender_by_name('LimCLI'))) |
|
275
|
0 |
0 |
if Lim::OBJ_DEBUG() |
|
281
|
0 |
0 |
if Lim::OBJ_DEBUG() |
|
283
|
0 |
0 |
if (exists $$self{'rl'}) |
|
284
|
0 |
0 |
if (&Lim::Config()->{'cli'}{'history_file'}) |
|
306
|
0 |
0 |
if ($$self{'busy'}) |
|
310
|
0 |
0 |
if (defined $line) { } |
|
318
|
0 |
0 |
if ($cmd eq 'quit') { } |
|
|
0 |
0 |
elsif ($cmd eq 'exit') { } |
|
|
0 |
0 |
elsif ($cmd eq 'help') { } |
|
323
|
0 |
0 |
if (exists $$self{'current'}) { } |
|
334
|
0 |
0 |
if (exists $$self{'current'}) { } |
|
345
|
0 |
0 |
if ($cmd) { } |
|
346
|
0 |
0 |
if (exists $$self{'current'}) { } |
|
|
0 |
0 |
elsif (exists $$self{'cli'}{$cmd}) { } |
|
347
|
0 |
0 |
if ($$self{'current'}{'module'}->Commands->{$cmd} and $$self{'current'}{'obj'}->can($cmd)) { } |
|
359
|
0 |
0 |
if ($args) { } |
|
364
|
0 |
0 |
if ($$current{'module'}->Commands->{$cmd} and $$current{'obj'}->can($cmd)) { } |
|
400
|
0 |
0 |
if (exists $$self{'rl'}) |
|
419
|
0 |
0 |
if (exists $$self{'rl'}) |
|
437
|
0 |
0 |
if (exists $$self{'rl'}) { } |
|
475
|
0 |
0 |
if (exists $$self{'rl'}) { } |
|
498
|
0 |
0 |
if (exists $$self{'rl'}) { } |
|
525
|
0 |
0 |
if (ref $commands eq 'HASH') |
|
527
|
0 |
0 |
if (ref $$commands{$key} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $$commands{$key} eq 'ARRAY') { } |
|
532
|
0 |
0 |
if (@{$$commands{$key};} == 1) { } |
|
|
0 |
0 |
elsif (@{$$commands{$key};} == 2) { } |
|
561
|
0 |
0 |
if (exists $$self{'current'}) { } |
|
582
|
0 |
0 |
scalar @_ > 0 ? : |
|
584
|
0 |
0 |
if (blessed $_ and $_->isa('Lim::Error')) { } |
|
594
|
0 |
0 |
if (exists $$self{'current'}) { } |
|
618
|
0 |
0 |
if Lim::DEBUG() |
|
625
|
0 |
0 |
if (system &Lim::Config()->{'cli'}{'editor'}, $tmp->filename) |
|
626
|
0 |
0 |
if Lim::DEBUG() |
|
631
|
0 |
0 |
unless ($fh->open($tmp->filename)) |
|
632
|
0 |
0 |
if Lim::DEBUG() |
|
639
|
0 |
0 |
unless ($fh->read($content, $tell) == $tell) |
|
640
|
0 |
0 |
if Lim::DEBUG() |
|
644
|
0 |
0 |
if ($sha eq &Digest::SHA::sha1_base64($content)) |
|
645
|
0 |
0 |
if Lim::DEBUG() |