blib/lib/Net/Connection/Match/Protos.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 14 | 85.7 |
line | true | false | branch |
---|---|---|---|
74 | 2 | 1 | if (defined $_[1]) |
79 | 1 | 2 | unless (defined $args{'protos'}) |
82 | 0 | 2 | if (ref \$args{'protos'} eq 'ARRAY') |
85 | 0 | 2 | unless (defined $args{'protos'}[0]) |
123 | 1 | 4 | unless (defined $object) |
127 | 1 | 3 | if (ref $object ne 'Net::Connection') |
133 | 2 | 1 | if ($self->{'protos'}[$protos_int] eq lc $object->proto) |