| line |
true |
false |
branch |
|
60
|
0 |
1 |
if ($#param >= 1) { } |
|
|
1 |
0 |
elsif ($#param == 0) { } |
|
64
|
0 |
0 |
if (exists $p{$k}) |
|
68
|
0 |
0 |
if (exists $p{'begin'} and $p{'commit'} and $p{'rollback'}) |
|
79
|
0 |
1 |
unless ($self->{'struct'}) |
|
111
|
0 |
1 |
if ($self->{'transactions'}) |
|
118
|
1 |
0 |
unless ($self->{'name'}) |
|
145
|
7 |
0 |
if ($__cmds) |
|
149
|
0 |
9 |
unless ($self->process($_, 1)) |
|
156
|
0 |
0 |
if (-t STDIN) { } |
|
164
|
0 |
0 |
if (length $_ > 2) |
|
173
|
0 |
0 |
unless ($self->process($_)) |
|
182
|
0 |
0 |
unless ($self->process($_, 1)) |
|
194
|
0 |
0 |
if (@{$self->{'path'};}) |
|
197
|
0 |
0 |
if ($self->{'session'}) |
|
213
|
0 |
0 |
if ($start == 0) { } |
|
|
0 |
0 |
elsif ($line =~ /[^\s]+\s+[^\s]+\s+/) { } |
|
218
|
0 |
0 |
unless ($state) |
|
224
|
0 |
0 |
if $name[$self->{'complete_idx'} - 1] =~ /^$text/ |
|
236
|
0 |
0 |
if (grep {$cmd eq $_;} @{$$self{'commandargs'};}) { } |
|
241
|
0 |
0 |
unless ($state) |
|
247
|
0 |
0 |
if $name[$self->{'complete_idxp'} - 1] =~ /^$text/ |
|
265
|
0 |
9 |
unless defined $line |
|
273
|
0 |
9 |
unless defined $cmd |
|
274
|
0 |
9 |
if $cmd =~ /^\s*$/ |
|
275
|
0 |
9 |
if $cmd =~ /^#/ |
|
279
|
0 |
9 |
if ($cmd eq '..') { } |
|
283
|
9 |
0 |
if (exists $self->{'command'}{$cmd}) { } |
|
285
|
0 |
9 |
unless (grep {$cmd eq $_;} @{$$self{'commandargs'};}) |
|
289
|
0 |
9 |
if $failonerr and not $r |
|
290
|
0 |
9 |
if $self->{'quit'} |
|
293
|
0 |
0 |
if (ref($self->{'db'}) =~ /hash/i) { } |
|
294
|
0 |
0 |
if (exists $self->{'db'}{$cmd}) { } |
|
296
|
0 |
0 |
if $failonerr and not $r |
|
300
|
0 |
0 |
if $failonerr |
|
305
|
0 |
0 |
if $failonerr |
|
342
|
0 |
3 |
unless defined $key |
|
351
|
0 |
3 |
if ($@) { } |
|
364
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
365
|
0 |
1 |
unless defined $key |
|
367
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
368
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
381
|
0 |
1 |
if ($@) { } |
|
385
|
0 |
1 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
400
|
0 |
1 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
401
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
402
|
0 |
0 |
if (scalar @{$self->{'db'};} - 1 < $key) { } |
|
411
|
0 |
1 |
unless defined $key |
|
413
|
1 |
0 |
if (exists $self->{'db'}{$key}) { } |
|
428
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
429
|
0 |
1 |
unless defined $key |
|
431
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
432
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
449
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
450
|
0 |
1 |
unless defined $key |
|
452
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
453
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
469
|
0 |
0 |
unless defined $key |
|
473
|
0 |
0 |
if ($key =~ m[^/.*/$]) { } |
|
478
|
0 |
0 |
if ($k =~ /$key/) |
|
484
|
0 |
0 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
|
0 |
0 |
elsif (exists $self->{'db'}{$key}) { } |
|
485
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
486
|
0 |
0 |
if (scalar @{$self->{'db'};} - 1 < $key) { } |
|
502
|
0 |
0 |
if (ref($self->{'db'}{$key}) =~ /hash/i or ref($self->{'db'}{$key}) =~ /array/i) { } |
|
518
|
0 |
0 |
if ($obj) { } |
|
525
|
0 |
0 |
if ($noprint) { } |
|
529
|
0 |
0 |
if (open LESS, "|$self->{'more'}") { } |
|
544
|
0 |
0 |
unless defined $key |
|
546
|
0 |
0 |
if (exists $self->{'db'}{$key}) { } |
|
555
|
0 |
0 |
if ($newdata eq $data) { } |
|
564
|
0 |
0 |
if ($@) { } |
|
584
|
0 |
0 |
if (ref $self->{'db'} eq 'ARRAY') { } |
|
599
|
0 |
0 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
603
|
0 |
0 |
if (ref $item) { } |
|
622
|
0 |
0 |
unless (defined $indent) |
|
628
|
0 |
0 |
if (ref($db->{$key}) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($db->{$key}) =~ /array/i) { } |
|
643
|
0 |
2 |
unless defined $key |
|
645
|
0 |
2 |
if ($key eq '..') { } |
|
649
|
0 |
2 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
|
2 |
0 |
elsif (ref($self->{'db'}{$key}) =~ /hash/i or ref($self->{'db'}{$key}) =~ /array/i) { } |
|
651
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
673
|
0 |
0 |
if (@{$self->{'prev'};}) { } |
|
688
|
0 |
0 |
unless (defined $regex) |
|
700
|
0 |
0 |
if (ref($db) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($db) =~ /array/i) { } |
|
726
|
0 |
0 |
$quote ? : |
|
727
|
0 |
0 |
if ($key =~ /$regex/) |
|
734
|
0 |
7 |
if (not $self->{'silent'}) |
|
764
|
0 |
0 |
if ($self->{'transactions'}) |