Branch Coverage

blib/lib/EB/Booking/IV.pm
Criterion Covered Total %
branch 0 150 0.0


line true false branch
37 0 0 unless $self->adm_open
44 0 0 if (defined $bsk_att)
45 0 0 unless $self->check_attachment($bsk_att)
48 0 0 unless ($dagboek_type == 1 or $dagboek_type == 2)
60 0 0 if (defined $totaal)
62 0 0 unless defined $t
68 0 0 unless ($begin, $end) = $self->begindate
71 0 0 if ($date = parse_date($args->[0], substr($begin, 0, 4))) { }
75 0 0 if ($args->[0] || '') =~ /^[[:digit:]]+-/
81 0 0 unless @$args >= 3
84 0 0 unless $self->in_bky($date, $begin, $end)
86 0 0 if ($does_btw and $main::dbh->adm('btwbegin') and $date lt $main::dbh->adm('btwbegin'))
95 0 0 if ($main::cfg->val(('general', 'ivdesc'), undef)) { }
99 0 0 if (defined $bsk_ref and $bsk_ref =~ /^\d+$/)
104 0 0 $iv ? :
109 0 0 unless (defined $rr)
113 0 0 $iv ? :
118 0 0 unless (defined $rr)
119 0 0 $iv ? :
129 0 0 if (defined $bsk_ref and $bsk_ref =~ /^\d+$/)
134 0 0 $iv ? :
139 0 0 unless (defined $rr)
142 0 0 $iv ? :
147 0 0 unless (defined $rr)
148 0 0 $iv ? :
166 0 0 unless @$args >= 2
170 0 0 unless $desc =~ /\S/
171 0 0 unless $gdesc =~ /\S/
173 0 0 if ($opts->{'verbose'})
175 0 0 if $t =~ /\s/
178 0 0 unless ($desc =~ /\S/)
183 0 0 unless ($acct =~ /^\d+$/)
184 0 0 if ($acct =~ /^(\d*)([cd])/i)
194 0 0 unless ($rr)
197 0 0 if $main::dbh->in_transaction
201 0 0 if ($balres)
207 0 0 if ($btw_id and not $does_btw)
213 0 0 if ($nr == 1)
215 0 0 unless defined $bsk_nr
217 0 0 if ($bsk_ref and $main::dbh->do('SELECT count(*) FROM Boekstukken, Boekstukregels WHERE bsk_id = bsr_bsk_id AND upper(bsk_ref) = ? AND upper(bsr_rel_code) = ? AND bsk_bky = ?', uc $bsk_ref, uc $debcode, $bky)->[0])
237 0 0 $does_btw ? :
239 0 0 unless (defined $namt)
244 0 0 $iv ? :
246 0 0 if ($does_btw)
248 0 0 unless (defined $btw_id)
261 0 0 if (defined $kstomz) { }
0 0 elsif ($btw_id) { }
263 0 0 $kstomz ? :
0 0 if ($kstomz ? !$iv : $iv)
265 0 0 $kstomz ? :
0 0 $iv ? :
272 0 0 if ($btw_id and $rel_btw == 0 || $rel_btw == 2)
280 0 0 if ($incl and $rel_btw == 2)
281 0 0 if ($btw_explicit)
290 0 0 unless (defined $res and defined($tg = $res->[0]))
294 0 0 if (defined $res->[1] and $res->[1] gt $date)
296 0 0 if ($btw_adapt and not $btw_explicit)
297 0 0 $incl ? :
304 0 0 if ($rr and $rr->[0])
313 0 0 unless ($ok)
318 0 0 if (defined $res->[2] and $res->[2] lt $date)
320 0 0 if ($btw_adapt and not $btw_explicit)
321 0 0 $incl ? :
328 0 0 if ($rr and $rr->[0])
337 0 0 unless ($ok)
353 0 0 $does_btw ? :
0 0 defined $kstomz ? :
379 0 0 if $iv
381 0 0 if ($opts->{'journal'})
382 0 0 if $fail
389 0 0 if ($fail)
397 0 0 if $bsk_att
401 0 0 $opts->{'verbose'} || 1 ? :
408 0 0 if defined $ref
409 0 0 if ($rel =~ /^(.+):(.+)/)