| blib/lib/Perlbal/ChunkedUploadState.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 0 | 3 | if %args |
| 20 | 0 | 38 | unless (defined $rbuf) |
| 35 | 28 | 70 | unless $buflen |
| 37 | 44 | 26 | if (my $br = $$self{'bytes_remain'}) |
| 38 | 16 | 28 | $buflen > $br ? : |
| 41 | 0 | 44 | if $$self{'bytes_remain'} < 0 |
| 46 | 7 | 19 | unless $$self{'buf'} =~ s/^(?:\r\n)?([0-9a-fA-F]+)(?:;.*)?\r\n// |
| 49 | 3 | 16 | if ($$self{'bytes_remain'} == 0) |