| 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 |
|
335
|
0 |
0 |
if (open LESS, "|$self->{'more'}") { } |
|
353
|
0 |
3 |
unless defined $key |
|
362
|
0 |
3 |
if ($@) { } |
|
375
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
376
|
0 |
1 |
unless defined $key |
|
378
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
379
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
392
|
0 |
1 |
if ($@) { } |
|
396
|
0 |
1 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
411
|
0 |
1 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
412
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
413
|
0 |
0 |
if (scalar @{$self->{'db'};} - 1 < $key) { } |
|
422
|
0 |
1 |
unless defined $key |
|
424
|
1 |
0 |
if (exists $self->{'db'}{$key}) { } |
|
439
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
440
|
0 |
1 |
unless defined $key |
|
442
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
443
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
460
|
1 |
0 |
if (not ref($self->{'db'}) =~ /array/i) { } |
|
461
|
0 |
1 |
unless defined $key |
|
463
|
1 |
0 |
if (exists $self->{'db'}{$key}) |
|
464
|
0 |
1 |
unless (ref($self->{'db'}{$key}) =~ /array/i) |
|
480
|
0 |
0 |
unless defined $key |
|
484
|
0 |
0 |
if ($key =~ m[^/.*/$]) { } |
|
489
|
0 |
0 |
if ($k =~ /$key/) |
|
495
|
0 |
0 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
|
0 |
0 |
elsif (exists $self->{'db'}{$key}) { } |
|
496
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
497
|
0 |
0 |
if (scalar @{$self->{'db'};} - 1 < $key) { } |
|
513
|
0 |
0 |
if (ref($self->{'db'}{$key}) =~ /hash/i or ref($self->{'db'}{$key}) =~ /array/i) { } |
|
529
|
0 |
0 |
if ($obj) { } |
|
536
|
0 |
0 |
if ($noprint) { } |
|
549
|
0 |
0 |
unless defined $key |
|
551
|
0 |
0 |
if (exists $self->{'db'}{$key}) { } |
|
560
|
0 |
0 |
if ($newdata eq $data) { } |
|
569
|
0 |
0 |
if ($@) { } |
|
589
|
0 |
0 |
if (ref $self->{'db'} eq 'ARRAY') { } |
|
605
|
0 |
0 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
609
|
0 |
0 |
if (ref $item) { } |
|
630
|
0 |
0 |
unless (defined $indent) |
|
637
|
0 |
0 |
if (ref($db->{$key}) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($db->{$key}) =~ /array/i) { } |
|
654
|
0 |
2 |
unless defined $key |
|
656
|
0 |
2 |
if ($key eq '..') { } |
|
660
|
0 |
2 |
if (ref($self->{'db'}) =~ /array/i) { } |
|
|
2 |
0 |
elsif (ref($self->{'db'}{$key}) =~ /hash/i or ref($self->{'db'}{$key}) =~ /array/i) { } |
|
662
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
684
|
0 |
0 |
if (@{$self->{'prev'};}) { } |
|
699
|
0 |
0 |
unless (defined $regex) |
|
711
|
0 |
0 |
if (ref($db) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($db) =~ /array/i) { } |
|
737
|
0 |
0 |
$quote ? : |
|
738
|
0 |
0 |
if ($key =~ /$regex/) |
|
745
|
0 |
7 |
if (not $self->{'silent'}) |
|
775
|
0 |
0 |
if ($self->{'transactions'}) |