Branch Coverage

blib/lib/Card/Magnetic.pm
Criterion Covered Total %
branch 13 20 65.0


line true false branch
20 0 5 unless $stripe
31 3 2 if ($stripe =~ /^%[\w|\^]+\?\n/)
36 3 0 if ($track1 =~ /^%(\w)(\d+)\^(\w+)\^(\d{4})(\d{3})(\d{5})(\d{3})/)
50 3 2 if ($stripe =~ /\;[\w\^]+\?\n/ and length $& < 39)
55 3 0 if ($track2 =~ /(\d+)\^(\d{4})(\d{3})(\d{5})(\d{3})/)
67 3 2 if ($stripe =~ /\;[\w\^]+\?\n/)
72 3 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)
121 1 0 defined $self->{'tracks'}[0] ? :
126 1 0 defined $self->{'tracks'}[1] ? :
131 1 0 defined $self->{'tracks'}[2] ? :