| line |
true |
false |
branch |
|
41
|
728 |
0 |
if (%arg) |
|
115
|
2024 |
0 |
if (exists $_attrs{$name}) { } |
|
126
|
0 |
728 |
if (defined $arg{'verbose'}) |
|
135
|
1 |
727 |
if (exists $arg{'format'}) |
|
138
|
0 |
1 |
if exists $_format_for{$arg{'format'}} |
|
140
|
1 |
0 |
if exists $_user_format_for{$arg{'format'}} |
|
143
|
1 |
0 |
if defined $f and ref $f eq 'HASH' |
|
151
|
805 |
7203 |
if (defined $arg{$key} and $self->_accessible("_$key")) |
|
164
|
1157 |
0 |
if ($self->_accessible("_$key") and $_attrs{"_$key"}) { } |
|
181
|
14 |
2 |
if (exists $_format_for{$identifier} and ref $_format_for{$identifier} eq 'HASH') |
|
187
|
2 |
0 |
if (exists $_user_format_for{$identifier} and ref $_user_format_for{$identifier} eq 'HASH') |
|
198
|
0 |
2 |
unless defined $identifier and length $identifier |
|
200
|
1 |
1 |
unless defined $format and ref $format eq 'HASH' |
|
216
|
37 |
31 |
if ($AUTOLOAD =~ /.*::get(_\w+)/ and $self->_accessible($1)) |
|
223
|
25 |
6 |
if ($AUTOLOAD =~ /.*::set(_\w+)/ and $self->_accessible($1)) |
|
229
|
6 |
0 |
if ($AUTOLOAD =~ /.*::as_(\w+)/ and $_[0]->_format($1)) |
|
241
|
15 |
713 |
if ($error) |
|
253
|
0 |
728 |
if (not defined $mac) { } |
|
|
8 |
720 |
elsif (not $mac =~ /[a-fA-F0-9]/) { } |
|
|
1 |
719 |
elsif ($mac =~ /[g-z]/i) { } |
|
270
|
713 |
15 |
unless ($self->get_delimiter) |
|
271
|
707 |
21 |
unless ($self->get_base) |
|
272
|
712 |
16 |
unless ($self->get_bit_group) |
|
273
|
726 |
2 |
unless ($self->get_zero_padded) |
|
284
|
294 |
419 |
if ($mac =~ /([^a-zA-Z0-9]+)/) { } |
|
303
|
688 |
19 |
if ($mac =~ /[a-fA-F]/) |
|
311
|
15 |
32 |
if (length $group == 3) |
|
315
|
3 |
12 |
if ($group > 255) |
|
321
|
4 |
12 |
if ($is_decimal) |
|
335
|
293 |
419 |
if ($mac =~ /([^a-zA-Z0-9]+)/) { } |
|
336
|
55 |
238 |
$1 eq ' ' ? : |
|
338
|
0 |
293 |
if (@groups > 3 and @groups % 2) { } |
|
|
286 |
7 |
elsif (@groups) { } |
|
345
|
284 |
2 |
if ($t_bg == 8 or $t_bg == 16) { } |
|
359
|
2 |
417 |
if (length $mac != 12) { } |
|
381
|
453 |
273 |
unless ($self->get_bit_group and $self->get_bit_group == 8) |
|
385
|
54 |
219 |
if ($delimiter eq ' ') |
|
388
|
54 |
1107 |
if ($group =~ /^0./) |
|
407
|
309 |
419 |
if ($delimiter) { } |
|
408
|
55 |
254 |
$delimiter eq ' ' ? : |
|
414
|
716 |
12 |
if (defined $self->get_base and $self->get_base == 16) { } |
|
416
|
706 |
10 |
if (defined $self->get_bit_group) { } |
|
430
|
11 |
1 |
if (@groups == 6) { } |
|
452
|
8 |
720 |
if (not defined $self->get_internal_mac) { } |
|
|
4 |
716 |
elsif (length $self->get_internal_mac != 12) { } |
|
478
|
12 |
42 |
if ($bit_group == 8 and exists $arg{'zero_padded'} and $arg{'zero_padded'} == 0) |
|
489
|
1 |
15 |
if (exists $arg{'base'} and $arg{'base'} == 10) |
|
499
|
14 |
2 |
if (exists $arg{'delimiter'}) { } |
|
|
2 |
0 |
elsif ($bit_group != 48) { } |
|
516
|
6 |
10 |
if (exists $arg{'case'} and $arg{'case'} =~ /^(upper|lower)$/) |
|
518
|
4 |
2 |
$arg{'case'} eq 'upper' ? : |
|
536
|
0 |
400 |
if (UNIVERSAL::isa($arg_2, 'Net::MAC')) { } |
|
544
|
400 |
0 |
if ($mac_1 eq $mac_2) { } |
|
551
|
0 |
0 |
if ($arg_1 == $arg_2) { } |
|
559
|
0 |
43 |
if (UNIVERSAL::isa($arg_2, 'Net::MAC')) { } |
|
567
|
43 |
0 |
if ($mac_1 eq $mac_2) { } |
|
574
|
0 |
0 |
if ($arg_1 eq $arg_2) { } |
|
581
|
0 |
3702 |
if (defined $message and $$self{'_verbose'}) |
|
593
|
0 |
36 |
if ($self->get_die) { } |
|
|
0 |
36 |
elsif ($self->get_verbose) { } |