| blib/lib/MoneyWorks.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 26 | 3.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 118 | 0 | 0 | 0 | $maybe_open_file and defined $$self[3] |
| 126 | 0 | 0 | 0 | defined $u and length $u |
| 244 | 1 | 0 | 0 | defined blessed($self) and $self->isa('MoneyWorks') |
| 401 | 0 | 0 | 0 | $using_hash and not $key_is_in_fields |
| 416 | 0 | 0 | 0 | $! and croak("Error while terminating MoneyWorks: $!") |
| line | l | !l | condition |
|---|---|---|---|
| 361 | 0 | 0 | $all_fields{lc $table} ||= [@_ = split(/\t/, ($self->command("export table=$qtable search='='") =~ /([^\r\n]+)/)[0], 0)] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 99 | 0 | 0 | 0 | $$self[6] ||= do { my $pid = _open($self, my($wh, $rh), my $eh = geniosym); $$self[7] = $pid; ++$maybe_open_file; [$rh, $wh, $eh] } |
| 456 | 0 | 0 | 0 | $$self[1] ||= 'export table=' . mw_cli_quote($$self[2]) . ' format="1"' . ' search=' |
| 482 | 0 | 0 | 0 | $$self[1] ||= do { (my $row = $$self[4]) =~ tr/@/\cA/; mw_str_quote("Replace($$self[3],`\@`,`\cA`)=" . &mw_str_quote($row)) } |