| blib/lib/Protocol/OSC.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 2 | 16 | if ((my $f = substr($data, 0, 1)) eq '#') { } |
| 16 | 0 | elsif ($f eq '/') { } | |
| 30 | 0 | 16 | if ($has_filters) |
| 39 | 4 | 0 | defined $_->[0] && !&looks_like_number($_->[0]) ? : |
| 50 | 0 | 18 | $has_filters && exists $filter{$_} ? : |
| 54 | 0 | 2 | if ((my $r = ref $packet) eq 'Protocol::OSC::Bundle') { } |
| 1 | 1 | elsif ($r eq 'Protocol::OSC::Message') { } | |
| 76 | 0 | 2 | if not $secs and $frac == 1 |
| 81 | 0 | 2 | unless $t |
| 89 | 0 | 1 | if length $buf < 4 |
| 91 | 0 | 1 | if length $buf < $n + 4 |