Branch Coverage

blib/lib/Business/Paybox.pm
Criterion Covered Total %
branch 0 20 0.0


line true false branch
89 0 0 unless $self->connect2listener
97 0 0 if $$self{'sock'}
105 0 0 if $Business::PayBox::DEBUG
113 0 0 unless $sock
169 0 0 unless $$self{'DATA'}{'1'}{'CPID'} =~ /^\+\d{12}$/
182 0 0 unless $self->parse_answer($ans)
183 0 0 unless ($$self{'DATA'}{'2'}{'STAT'} eq 'AS')
192 0 0 unless $$self{'sock'}->print("$data\n")
194 0 0 $$self{'ERROR'} ? :
229 0 0 if (/^([A-Z]{4})(.+)$/)