Branch Coverage

blib/lib/Card/Magnetic.pm
Criterion Covered Total %
branch 10 14 71.4


line true false branch
20 0 4 unless $stripe
31 2 2 if ($stripe =~ /^%[\w|\^]+\?\n/)
36 2 0 if ($track1 =~ /^%(\w)(\d+)\^(\w+)\^(\d{4})(\d{3})(\d{5})(\d{3})/)
49 2 2 if ($stripe =~ /\;[\w\^]+\?\n/ and length $& < 39)
54 2 0 if ($track2 =~ /(\d+)\^(\d{4})(\d{3})(\d{5})(\d{3})/)
65 2 2 if ($stripe =~ /\;[\w\^]+\?\n/)
70 2 0 if ($track3 =~ / (?\d{2}) (?\d+)\^ (?\d{3}) (?\d{3}) (?\d{4}) (?\d{4}) (?\d{4}) (?\d{2}) (?\d{1}) (?\d{6}) (?\d{1}) (?\d{2}) (?\d{2}) (?\d{2}) (?\d{4}) (?\d{1}) (?\d{9}) (?\d{1}) (?\d{6}) /x)