| line |
true |
false |
branch |
|
101
|
0 |
1 |
unless defined $lines |
|
176
|
0 |
29 |
if ref $input eq "NetAddr::MAC" |
|
181
|
1 |
28 |
if ($input =~ /[^0-9a-f:-]/i) |
|
192
|
5 |
23 |
unless (@bytes == 3) |
|
223
|
3 |
0 |
unless fetch_oui_from_cache($_[0]) |
|
241
|
1 |
2 |
unless defined $url |
|
244
|
2 |
0 |
unless (defined $html) |
|
288
|
2 |
3 |
unless defined $html |
|
292
|
2 |
3 |
unless (defined $html) |
|
310
|
0 |
7 |
if ($ssl_version < $min_ssl) |
|
314
|
0 |
7 |
unless defined $url |
|
318
|
23 |
3 |
if ($tx->error) |
|
319
|
4 |
19 |
if ($tries > 3) |
|
325
|
0 |
4 |
if $ssl_version < $min_ssl |
|
338
|
0 |
3 |
unless (defined $html) |
|
386
|
1 |
4 |
unless defined $record |
|
410
|
8 |
27008 |
unless $oui |
|
412
|
129330 |
0 |
$_ ? : |
|
437
|
0 |
7 |
if defined $ENV{'NET_MAC_VENDOR_OUI_URL'} |
|
471
|
1 |
0 |
if (defined $source) { } |
|
472
|
0 |
1 |
unless (-e $source) |
|
485
|
0 |
0 |
$url =~ /\.gz/ ? : |
|
|
0 |
0 |
$url =~ /\.bz2/ ? : |
|
491
|
0 |
1 |
if (defined $dest) |
|
492
|
0 |
0 |
if (open my $fh, '>:utf8', $dest) { } |
|
523
|
0 |
0 |
if (eval {
do {
require Compress::Bzip2;
1
}
}) { } |
|
533
|
0 |
0 |
unless open my $unzipfh, "bunzip2 --stdout $tempfilename |" |
|
542
|
0 |
0 |
if (eval {
do {
require Compress::Zlib;
1
}
}) { } |
|
552
|
0 |
0 |
unless open my $unzipfh, "gunzip --stdout $tempfilename |" |