Branch Coverage

blib/lib/NetAddr/MAC.pm
Criterion Covered Total %
branch 103 252 40.8


line true false branch
95 1 15 unless (@q)
97 1 0 if $NetAddr::MAC::die_on_error
103 15 0 @q % 2 ? :
1 3 unless $self->_init(@q % 2 ? ("mac", shift @q, @q) : @q)
118 0 15 if (defined $args{'die_on_error'}) { }
119 0 0 if $args{'die_on_error'}
122 11 4 if $NetAddr::MAC::die_on_error
125 11 4 if $self->{'_die'}
129 1 14 if ($args{'mac'} =~ /^(\d+)\#(.+)$/)
136 1 3 unless ($self->{'mac'})
137 0 1 if $self->{'_die'}
141 1 2 if (defined $self->{'priority'}) { }
142 0 1 if ($args{'priority'} and $args{'priority'} != $self->{'priority'})
144 0 0 if $self->{'_die'}
154 18 0 unless not defined $_
0 3 if (&first(sub { 0 == length $_ unless not defined $_; } , @{$$self{"mac"};}))
156 0 0 if $self->{'_die'}
172 1 294 unless ($mac)
185 5 289 if $mac =~ /[a-f0-9]{1,4}:[a-f0-9]{1,4}::([a-f0-9]{1,4})?/i
186 2 287 if $mac =~ /[a-f0-9]{1,4}::[a-f0-9]{1,4}:[a-f0-9]{1,4}/i
191 18 269 if &first(sub { /[^a-f0-9]/i; } , @parts)
197 822 72 length($o) % 2 == 0 ? :
202 0 0 if (@parts == 1 and length $parts[0] == 12 || length $parts[0] == 16)
214 263 6 if (@parts == 6 or @parts == 8)
219 1 5 if (@parts == 3 or @parts == 4)
225 1 0 if &first(sub { length $_ < 4; } , @parts)
229 0 0 if /^ ([a-f0-9]{2}) ([a-f0-9]{2}) $/xi
241 11 21 if (defined $_die) { }
20 1 elsif ($NetAddr::MAC::die_on_error) { }
242 11 0 if $_die
265 0 0 unless (@q)
267 0 0 if $NetAddr::MAC::die_on_error
275 0 0 @q % 2 ? :
0 0 unless $self->_init(@q % 2 ? ("oui", shift @q, @q) : @q)
306 0 0 unless ref $self
336 20 12 if $_ != 255
458 0 0 if (is_eui48($self))
470 0 0 if @tmpmac
541 0 0 if (is_eui64($self))
542 0 0 if (@{$$self{'mac'};}[3] == 255 and @{$$self{'mac'};}[4] == 255 || @{$$self{'mac'};}[4] == 254) { }
552 0 0 if $self->{'_die'}
567 0 0 if (is_eui48($self)) { }
587 0 31 if ref $mac eq "NetAddr::MAC"
589 0 31 if (ref $mac)
591 0 0 if $NetAddr::MAC::die_on_error
596 0 21 unless $mac = _mac_to_integers($mac)
605 0 31 if ref $mac eq "NetAddr::MAC"
607 0 31 if (ref $mac)
609 0 0 if $NetAddr::MAC::die_on_error
614 0 21 unless $mac = _mac_to_integers($mac)
623 0 15 if ref $mac eq "NetAddr::MAC"
625 0 15 if (ref $mac)
627 0 0 if $NetAddr::MAC::die_on_error
632 0 15 unless $mac = _mac_to_integers($mac)
642 0 15 if ref $mac eq "NetAddr::MAC"
644 0 15 if (ref $mac)
646 0 0 if $NetAddr::MAC::die_on_error
651 0 15 unless $mac = _mac_to_integers($mac)
660 0 15 if ref $mac eq "NetAddr::MAC"
662 0 15 if (ref $mac)
664 0 0 if $NetAddr::MAC::die_on_error
669 0 15 unless $mac = _mac_to_integers($mac)
678 0 31 if ref $mac eq "NetAddr::MAC"
680 0 31 if (ref $mac)
682 0 0 if $NetAddr::MAC::die_on_error
688 0 31 unless $mac = _mac_to_integers($mac)
698 0 31 if ref $mac eq "NetAddr::MAC"
700 0 31 if (ref $mac)
702 0 0 if $NetAddr::MAC::die_on_error
708 0 31 unless $mac = _mac_to_integers($mac)
717 0 31 if ref $mac eq "NetAddr::MAC"
719 0 31 if (ref $mac)
721 0 0 if $NetAddr::MAC::die_on_error
727 0 31 unless $mac = _mac_to_integers($mac)
736 0 31 if ref $mac eq "NetAddr::MAC"
738 0 31 if (ref $mac)
740 0 0 if $NetAddr::MAC::die_on_error
746 0 31 unless $mac = _mac_to_integers($mac)
755 0 20 if ref $mac eq "NetAddr::MAC"
757 0 20 if (ref $mac)
759 0 0 if $NetAddr::MAC::die_on_error
764 0 20 unless $mac = _mac_to_integers($mac)
773 0 20 if ref $mac eq "NetAddr::MAC"
775 0 20 if (ref $mac)
777 0 0 if $NetAddr::MAC::die_on_error
782 0 20 unless $mac = _mac_to_integers($mac)
791 0 1 if ref $mac eq "NetAddr::MAC"
793 0 1 if (ref $mac)
795 0 0 if $NetAddr::MAC::die_on_error
800 0 1 unless $mac = _mac_to_integers($mac)
809 0 1 if ref $mac eq "NetAddr::MAC"
811 0 1 if (ref $mac)
813 0 0 if $NetAddr::MAC::die_on_error
818 0 1 unless $mac = _mac_to_integers($mac)
827 0 1 if ref $mac eq "NetAddr::MAC"
829 0 1 if (ref $mac)
831 0 0 if $NetAddr::MAC::die_on_error
836 0 1 unless $mac = _mac_to_integers($mac)
845 0 1 if ref $mac eq "NetAddr::MAC"
847 0 1 if (ref $mac)
849 0 0 if $NetAddr::MAC::die_on_error
854 0 1 unless $mac = _mac_to_integers($mac)
863 0 0 if ref $mac eq "NetAddr::MAC"
865 0 0 if (ref $mac)
867 0 0 if $NetAddr::MAC::die_on_error
872 0 0 unless $mac = _mac_to_integers($mac)
882 0 1 if ref $mac eq "NetAddr::MAC"
884 0 1 if (ref $mac)
886 0 0 if $NetAddr::MAC::die_on_error
891 0 1 unless $mac = _mac_to_integers($mac)
901 0 1 if ref $mac eq "NetAddr::MAC"
903 0 1 if (ref $mac)
905 0 0 if $NetAddr::MAC::die_on_error
910 0 1 unless $mac = _mac_to_integers($mac)
920 0 1 if ref $mac eq "NetAddr::MAC"
922 0 1 if (ref $mac)
924 0 0 if $NetAddr::MAC::die_on_error
929 0 1 unless $mac = _mac_to_integers($mac)
939 0 1 if ref $mac eq "NetAddr::MAC"
941 0 1 if (ref $mac)
943 0 0 if $NetAddr::MAC::die_on_error
948 0 1 unless $mac = _mac_to_integers($mac)
958 0 1 if ref $mac eq "NetAddr::MAC"
960 0 1 if (ref $mac)
962 0 0 if $NetAddr::MAC::die_on_error
967 0 1 unless $mac = _mac_to_integers($mac)