| blib/lib/Data/Buffer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 25 | 36 | 69.4 |
| line | true | false | branch |
|---|---|---|---|
| 54 | 7 | 34 | unless defined $len |
| 55 | 1 | 40 | defined $rep ? : |
| 69 | 0 | 3 | unless @r % 24 |
| 76 | 0 | 1 | unless my($tmpl, $data) = $$buf{'buf'} =~ /^([NYaCn\d]+)\0(.+)$/s |
| 84 | 3 | 7 | if ($el eq 'N') { } |
| 1 | 6 | elsif ($el eq 'n') { } | |
| 1 | 5 | elsif ($el eq 'C') { } | |
| 3 | 2 | elsif ($el eq 'a') { } | |
| 2 | 0 | elsif ($el eq 'Y') { } | |
| 85 | 2 | 1 | if $tmpl[0] eq 'Y' |
| 110 | 0 | 2 | defined $_[0] ? : |
| 123 | 0 | 4 | defined $_[0] ? : |
| 136 | 0 | 6 | defined $_[0] ? : |
| 149 | 0 | 13 | defined $_[0] ? : |
| 171 | 1 | 0 | $nbytes ? : |
| 172 | 1 | 0 | $nbytes ? : |
| 179 | 0 | 4 | defined $_[0] ? : |
| 188 | 0 | 2 | unless defined $str |