| blib/lib/Device/BusPirate/Mode/I2C.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 14 | 57.1 |
| line | true | false | branch |
|---|---|---|---|
| 99 | 2 | 1 | if (defined $args{'speed'}) |
| 100 | 0 | 2 | unless defined(my $speed = $SPEEDS{$args{'speed'}}) |
| 109 | 0 | 3 | unless $response eq "\cA" x length($bytes) |
| 168 | 0 | 15 | unless $+[0] == length $bytes |
| 229 | 0 | 1 | unless $address >= 0 and $address < 128 |
| 252 | 0 | 1 | unless $address >= 0 and $address < 128 |
| 277 | 0 | 1 | unless $address >= 0 and $address < 128 |