| 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) |
|
223
|
0 |
0 |
if $name[$$self{'complete_idx'} - 1] =~ /^$text/ |
|
236
|
0 |
0 |
if (grep {$cmd eq $_;} @{$$self{'commandargs'};}) { } |
|
241
|
0 |
0 |
unless ($state) |
|
246
|
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 ($@) { } |
|
594
|
0 |
0 |
if (ref($$self{'db'}) =~ /array/i) { } |
|
598
|
0 |
0 |
if (ref $item) { } |
|
617
|
0 |
0 |
unless (defined $indent) |
|
623
|
0 |
0 |
if (ref($$db{$key}) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($$db{$key}) =~ /array/i) { } |
|
638
|
0 |
2 |
unless defined $key |
|
640
|
0 |
2 |
if ($key eq '..') { } |
|
644
|
0 |
2 |
if (ref($$self{'db'}) =~ /array/i) { } |
|
|
2 |
0 |
elsif (ref($$self{'db'}{$key}) =~ /hash/i or ref($$self{'db'}{$key}) =~ /array/i) { } |
|
646
|
0 |
0 |
unless $key =~ /^\d*$/ |
|
668
|
0 |
0 |
if (@{$$self{'prev'};}) { } |
|
683
|
0 |
0 |
unless (defined $regex) |
|
695
|
0 |
0 |
if (ref($db) =~ /hash/i) { } |
|
|
0 |
0 |
elsif (ref($db) =~ /array/i) { } |
|
721
|
0 |
0 |
if ($key =~ /$regex/) |
|
728
|
0 |
7 |
if (not $$self{'silent'}) |
|
758
|
0 |
0 |
if ($$self{'transactions'}) |