Branch Coverage

blib/lib/Finance/PaycheckRecords.pm
Criterion Covered Total %
branch 28 40 70.0


line true false branch
55 0 3 unless my $parse_method = $parse_method{$input_type}
60 1 2 if $eof_after_parse{$input_type}
69 6 24 if ($coords[0] == 2) { }
3 21 elsif ($coords[0] == 4 and $coords[1] == 0) { }
15 6 elsif ($coords[0] == 3) { }
70 3 3 if $rows[0][0] =~ /^\s*Pay stub for period:\s*(\S.+\S)\s*\z/s
75 3 0 if $rows[0][2] =~ /\bCheck\s*#\s*(\d+)/
77 3 0 if $rows[0][2] =~ /\bDate:\s*(\S.+\S)/
80 0 6 unless defined $_
87 9 6 if ($rows[0][-1] =~ /^\s*YTD\s*\z/) { }
3 3 elsif ($rows[0][0] =~ /^\s*Net\s+This\s+Check:/) { }
93 0 69 unless defined $_
104 0 6 unless defined $_
134 0 2 unless $sum eq $net_deposit
138 2 0 if length $$paystub{'check_number'}
145 2 0 if length $memo
151 6 2 if length $$split[2]
168 0 8 unless ($$values{$current} // 0) != 0
170 0 8 unless $$fields{$field}
179 0 3 unless $$a[1] cmp $$b[1]