blib/lib/Device/Chip/Adapter.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 4 | 10 | 40.0 |
line | true | false | branch |
---|---|---|---|
101 | 0 | 4 | unless defined($description //= $ENV{'DEVICE_CHIP_ADAPTER'}) |
104 | 0 | 4 | unless my($basename, $opts) = $description =~ /^([^:]+)(?::(.*))?$/u |
116 | 4 | 0 | if ($code and $code != \&Device::Chip::Adapter::new_from_description) { } |
0 | 0 | elsif (not @opts) { } | |
161 | 7 | 0 | if (my $code = $self->can("make_protocol_$pname")) { } |