Branch Coverage
blib/lib/Business/PT/BI.pm
Criterion
Covered
Total
%
branch
7
8
87.5
line
true
false
branch
72
1
12
unless my $bi = shift()
73
0
12
unless $bi =~ /^\d{8}$/
76
1
11
unless defined $control
84
1
10
if ($expected > 9)