| 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) |