Condition Coverage

blib/lib/MoneyWorks.pm
Criterion Covered Total %
condition 1 26 3.8


and 3 conditions

line !l l&&!r l&&r condition
117 0 0 0 $maybe_open_file and defined $self->[3]
125 0 0 0 defined $u and length $u
243 1 0 0 defined &blessed($self) and $self->isa('MoneyWorks')
399 0 0 0 $using_hash and not $key_is_in_fields
414 0 0 0 $! and croak("Error while terminating MoneyWorks: $!")

or 2 conditions

line l !l condition
359 0 0 $all_fields{lc $table} ||= [split(/ /, ($self->command("export table=$qtable search='='") =~ /([^\r\n]+)/)[0], 0)]

or 3 conditions

line l !l&&r !l&&!r condition
98 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] }
454 0 0 0 $self->[1] ||= 'export table=' . &mw_cli_quote($self->[2]) . ' format="1"' . ' search='
480 0 0 0 $self->[1] ||= do { (my $row = $self->[4]) =~ Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058. ; &mw_str_quote("Replace($self->[3],`\@`,`\cA`)=" . &mw_str_quote($row)) }