| blib/lib/SVG/Barcode.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 24 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 52 | 1 | 0 | if ($self->{'scale'} and $scale = $self->{'scale'} * 1) |
| 57 | 2 | 2 | unless my $value = $self->$name |
| 67 | 1 | 0 | if $scale |
| 78 | 6 | 22 | if (defined $newvalue) { } |
| 79 | 1 | 5 | $newvalue eq '' ? : |
| 97 | 0 | 0 | if (@line) |
| 104 | 0 | 0 | if ($code->[$x] eq $sign) { } |
| 105 | 0 | 0 | if (@line) { } |
| 124 | 0 | 0 | if (@dot) |
| 132 | 0 | 0 | if ($code->[$y][$x] eq $sign) { } |
| 133 | 0 | 0 | if (@dot) { } |
| 147 | 0 | 0 | if (my $size = $self->{'textsize'}) |