lib/Business/Payment/SwissESR/PaymentSlip.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 16 | 26 | 61.5 |
line | true | false | branch |
---|---|---|---|
132 | 1 | 0 | unless (-d $tmpDir) |
133 | 0 | 1 | unless mkdir $tmpDir |
199 | 0 | 1 | unless open my $out, '>:utf8', "$tmpdir/esr.tex" |
203 | 0 | 1 | unless chdir $tmpdir |
208 | 1 | 0 | if (not -e $tmpdir . '/esr.pdf' or -z $tmpdir . '/esr.pdf') |
266 | 1 | 1 | if ($cfg{'amount'}) |
269 | 1 | 6 | $_ eq '.' ? : |
273 | 0 | 2 | $electronic ? : |
280 | 1 | 1 | length $ref <= 15 ? : |
312 | 1 | 1 | if ($printValue) |
316 | 2 | 0 | if $cfg{'watermark'} |
332 | 0 | 24 | if (not defined $cfg{$v}) { } |
370 | 0 | 0 | if ref $_[0] |