| line |
true |
false |
branch |
|
74
|
1 |
15 |
unless (@q) |
|
76
|
1 |
0 |
if $NetAddr::MAC::die_on_error |
|
82
|
15 |
0 |
@q % 2 ? : |
|
|
1 |
3 |
unless $self->_init(@q % 2 ? ("mac", shift @q, @q) : @q) |
|
97
|
0 |
15 |
if (defined $args{'die_on_error'}) { } |
|
98
|
0 |
0 |
if $args{'die_on_error'} |
|
101
|
11 |
4 |
if $NetAddr::MAC::die_on_error |
|
104
|
11 |
4 |
if $self->{'_die'} |
|
108
|
1 |
14 |
if ($args{'mac'} =~ /^(\d+)\#(.+)$/) |
|
115
|
1 |
3 |
unless ($self->{'mac'}) |
|
116
|
0 |
1 |
if $self->{'_die'} |
|
120
|
1 |
2 |
if (defined $self->{'priority'}) { } |
|
121
|
0 |
1 |
if ($args{'priority'} and $args{'priority'} != $self->{'priority'}) |
|
123
|
0 |
0 |
if $self->{'_die'} |
|
133
|
18 |
0 |
unless not defined $_ |
|
|
0 |
3 |
if (&first(sub {
0 == length $_ unless not defined $_;
}
, @{$$self{"mac"};})) |
|
135
|
0 |
0 |
if $self->{'_die'} |
|
151
|
1 |
328 |
unless ($mac) |
|
164
|
5 |
323 |
if $mac =~ /[a-f0-9]{1,4}:[a-f0-9]{1,4}::([a-f0-9]{1,4})?/i |
|
165
|
2 |
321 |
if $mac =~ /[a-f0-9]{1,4}::[a-f0-9]{1,4}:[a-f0-9]{1,4}/i |
|
170
|
18 |
303 |
if &first(sub {
/[^a-f0-9]/i;
}
, @parts) |
|
176
|
954 |
72 |
length($o) % 2 == 0 ? : |
|
181
|
0 |
0 |
if (@parts == 1 and length $parts[0] == 12 || length $parts[0] == 16) |
|
193
|
297 |
6 |
if (@parts == 6 or @parts == 8) |
|
198
|
1 |
5 |
if (@parts == 3 or @parts == 4) |
|
204
|
1 |
0 |
if &first(sub {
length $_ < 4;
}
, @parts) |
|
208
|
0 |
0 |
if /^ ([a-f0-9]{2}) ([a-f0-9]{2}) $/xi |
|
220
|
11 |
21 |
if (defined $_die) { } |
|
|
20 |
1 |
elsif ($NetAddr::MAC::die_on_error) { } |
|
221
|
11 |
0 |
if $_die |
|
244
|
0 |
0 |
unless (@q) |
|
246
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
254
|
0 |
0 |
@q % 2 ? : |
|
|
0 |
0 |
unless $self->_init(@q % 2 ? ("oui", shift @q, @q) : @q) |
|
285
|
0 |
0 |
unless ref $self |
|
315
|
20 |
12 |
if $_ != 255 |
|
458
|
0 |
0 |
if (is_eui48($self)) |
|
470
|
0 |
0 |
if @tmpmac |
|
547
|
0 |
0 |
if (is_eui64($self)) |
|
548
|
0 |
0 |
if (@{$$self{'mac'};}[3] == 255 and @{$$self{'mac'};}[4] == 255 || @{$$self{'mac'};}[4] == 254) { } |
|
558
|
0 |
0 |
if $self->{'_die'} |
|
573
|
0 |
0 |
if (is_eui48($self)) { } |
|
593
|
0 |
31 |
if ref $mac eq __PACKAGE__ |
|
595
|
0 |
31 |
if (ref $mac) |
|
597
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
602
|
0 |
21 |
unless $mac = _mac_to_integers($mac) |
|
611
|
0 |
31 |
if ref $mac eq __PACKAGE__ |
|
613
|
0 |
31 |
if (ref $mac) |
|
615
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
620
|
0 |
21 |
unless $mac = _mac_to_integers($mac) |
|
629
|
0 |
15 |
if ref $mac eq __PACKAGE__ |
|
631
|
0 |
15 |
if (ref $mac) |
|
633
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
638
|
0 |
15 |
unless $mac = _mac_to_integers($mac) |
|
648
|
0 |
15 |
if ref $mac eq __PACKAGE__ |
|
650
|
0 |
15 |
if (ref $mac) |
|
652
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
657
|
0 |
15 |
unless $mac = _mac_to_integers($mac) |
|
666
|
0 |
15 |
if ref $mac eq __PACKAGE__ |
|
668
|
0 |
15 |
if (ref $mac) |
|
670
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
675
|
0 |
15 |
unless $mac = _mac_to_integers($mac) |
|
684
|
0 |
39 |
if ref $mac eq __PACKAGE__ |
|
686
|
0 |
39 |
if (ref $mac) |
|
688
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
694
|
0 |
39 |
unless $mac = _mac_to_integers($mac) |
|
703
|
0 |
4 |
if ref $mac eq __PACKAGE__ |
|
705
|
0 |
4 |
if (ref $mac) |
|
707
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
713
|
0 |
4 |
unless $mac = _mac_to_integers($mac) |
|
722
|
0 |
4 |
if ref $mac eq __PACKAGE__ |
|
724
|
0 |
4 |
if (ref $mac) |
|
726
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
732
|
0 |
4 |
unless $mac = _mac_to_integers($mac) |
|
741
|
0 |
31 |
if ref $mac eq __PACKAGE__ |
|
743
|
0 |
31 |
if (ref $mac) |
|
745
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
751
|
0 |
31 |
unless $mac = _mac_to_integers($mac) |
|
760
|
0 |
31 |
if ref $mac eq __PACKAGE__ |
|
762
|
0 |
31 |
if (ref $mac) |
|
764
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
770
|
0 |
31 |
unless $mac = _mac_to_integers($mac) |
|
779
|
0 |
31 |
if ref $mac eq __PACKAGE__ |
|
781
|
0 |
31 |
if (ref $mac) |
|
783
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
789
|
0 |
31 |
unless $mac = _mac_to_integers($mac) |
|
798
|
0 |
28 |
if ref $mac eq __PACKAGE__ |
|
800
|
0 |
28 |
if (ref $mac) |
|
802
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
807
|
0 |
28 |
unless $mac = _mac_to_integers($mac) |
|
816
|
0 |
28 |
if ref $mac eq __PACKAGE__ |
|
818
|
0 |
28 |
if (ref $mac) |
|
820
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
825
|
0 |
28 |
unless $mac = _mac_to_integers($mac) |
|
834
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
836
|
0 |
1 |
if (ref $mac) |
|
838
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
843
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
852
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
854
|
0 |
1 |
if (ref $mac) |
|
856
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
861
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
870
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
872
|
0 |
1 |
if (ref $mac) |
|
874
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
879
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
888
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
890
|
0 |
1 |
if (ref $mac) |
|
892
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
897
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
906
|
0 |
0 |
if ref $mac eq __PACKAGE__ |
|
908
|
0 |
0 |
if (ref $mac) |
|
910
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
915
|
0 |
0 |
unless $mac = _mac_to_integers($mac) |
|
925
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
927
|
0 |
1 |
if (ref $mac) |
|
929
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
934
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
944
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
946
|
0 |
1 |
if (ref $mac) |
|
948
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
953
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
963
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
965
|
0 |
1 |
if (ref $mac) |
|
967
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
972
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
982
|
0 |
1 |
if ref $mac eq __PACKAGE__ |
|
984
|
0 |
1 |
if (ref $mac) |
|
986
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
991
|
0 |
1 |
unless $mac = _mac_to_integers($mac) |
|
1001
|
0 |
3 |
if ref $mac eq __PACKAGE__ |
|
1003
|
0 |
3 |
if (ref $mac) |
|
1005
|
0 |
0 |
if $NetAddr::MAC::die_on_error |
|
1010
|
0 |
3 |
unless $mac = _mac_to_integers($mac) |