Branch Coverage

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


line true false branch
35 0 0 unless ($main::dbh->adm_open)
46 0 0 unless defined $bky
51 0 0 if defined $rr and $rr->[0] == 0
64 0 0 if (defined $bsk_nr) { }
0 0 elsif ($prev) { }
65 0 0 unless ($bsk_nr =~ /^[0-9]+$/)
69 0 0 unless $self->check_bsk_nr($opts)
70 0 0 $prev ? :
82 0 0 unless $self->check_bsk_nr($opts)
92 0 0 if ($self->{'bky'} ne $main::dbh->adm('bky')) { }
0 0 elsif ($main::dbh->adm('closed')) { }
96 0 0 if ($c)
109 0 0 unless wantarray
116 0 0 if ($date lt $begin)
121 0 0 if ($date gt $end)
132 0 0 if ($amt =~ /^(.+)\@(.+)$/)
142 0 0 unless defined $spec
146 0 0 if ($spec =~ /^([gn])$/) { }
0 0 elsif ($spec =~ /^([ko])$/) { }
0 0 elsif ($spec =~ /^([hl]|\d+)([-+]?)([ko])$/ or $spec =~ /^(\w+)([-+])([ko])$/) { }
172 0 0 if ($spec =~ /^(\d+)([-+])?$/) { }
0 0 elsif ($spec =~ /^([hl])([-+])?$/) { }
0 0 elsif ($spec =~ /^(\w\w+)([-+])?$/) { }
0 0 elsif ($spec =~ /^([-+])$/ and $btw_id) { }
0 0 elsif ($spec ne '') { }
174 0 0 if (defined $2)
179 0 0 unless $res
180 0 0 $excl ? :
184 0 0 unless $res
192 0 0 if defined $2
193 0 0 $excl ? :
0 0 $btw_id eq 'h' ? :
200 0 0 defined $_->[1] ? :
0 0 if @$res != 1
213 0 0 unless $res
216 0 0 if (defined $2)
219 0 0 $excl ? :
224 0 0 unless $res
231 0 0 $1 eq '-' ? :
239 0 0 if @$res != 1
255 0 0 if ($bsr_btw_id)
259 0 0 unless $rr
263 0 0 unless $btw_perc
268 0 0 if ($btw_incl) { }
282 0 0 if defined $debet
283 0 0 if $total >= 0
290 0 0 if defined $total and not $iv
328 0 0 if defined $iv and $bsr_rel_code
330 0 0 if ($bsr_btw_class & 512 and $bsr_btw_id and $bsr_btw_acc and not $btw_intra)
339 0 0 if $bsr_amount < 0
340 0 0 if $bsr_amount > 0
342 0 0 $bsr_type ? :
346 0 0 if $btw
352 0 0 if (defined $total and $tot != $total and $main::cfg->val(('strategy', 'iv_vc'), 1))
362 0 0 if ($t != $v->{'btw'})
376 0 0 if ($dbk_acc_id)
377 0 0 if ($dbkdcsplit) { }
397 0 0 unless defined $att
399 0 0 if $att =~ m[^(\w+)://(.+)]
401 0 0 unless (-f $att and -r _)
412 0 0 unless defined $att
415 0 0 if ($att =~ m[^(\w+)://(.+)]) { }
416 0 0 if ($1 eq 'int' and $2 =~ m[^(\d+)/.+]) { }