Branch Coverage

blib/lib/Net/Works/Address.pm
Criterion Covered Total %
branch 17 22 77.2


line true false branch
66 43 84 if (defined $str and inet_pton(2, $str)) { }
68 2 41 if $version == 6
88 0 0 ref $int ? :
110 34 623 if $self->version == 4
112 373 250 if $self->as_integer >= 4294967296
125 3 2 if ($self->version == 6) { }
142 2 3 if $self->as_integer == $self->_max
154 2 2 if $self->as_integer == 0
166 0 211 shift() ? :
173 211 0 if $self->isa('Net::Works::Address')
0 211 unless blessed $self and blessed $other and eval { do { $other->isa('Net::Works::Address') if $self->isa('Net::Works::Address') } }