@@ -1,5 +1,11 @@
# $Id$
+1.22 - Wed Oct 8 04:11:27 2014
+ * Better guards for tests that need to fetch from the IEEE
+
+1.21 - Fri Jan 3 13:34:19 2014
+ * Get rid of MYMETA
+
1.20 - Thu Oct 3 16:03:11 2013
* Bump to release version
@@ -9,8 +9,7 @@ lib/Net/MAC/Vendor.pm
LICENSE
Makefile.PL
MANIFEST
-MYMETA.json
-MYMETA.yml
+MANIFEST.SKIP
README
t/compile.t
t/extract_oui_from_html.t
@@ -0,0 +1,66 @@
+
+#!start included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$ # 6.18 through 6.25 generated this
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid MYMETA files
+^MYMETA\.
+#!end included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP
+
+
+\.travis\.yml
+\.releaserc
+\.lwpcookies
+Net-MAC-.*
+mac_oui\.db
+
@@ -4,7 +4,7 @@
"brian d foy <bdfoy@cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150",
+ "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.132830",
"license" : [
"perl_5"
],
@@ -26,5 +26,5 @@
"web" : "https://github.com/briandfoy/net-mac-vendor"
}
},
- "version" : "1.20"
+ "version" : "1.22"
}
@@ -4,7 +4,7 @@ author:
- 'brian d foy <bdfoy@cpan.org>'
build_requires: {}
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150'
+generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.132830'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -16,4 +16,4 @@ no_index:
- inc
resources:
repository: https://github.com/briandfoy/net-mac-vendor
-version: 1.20
+version: 1.22
@@ -1,30 +0,0 @@
-{
- "abstract" : "Look up the network interface vendor by its MAC",
- "author" : [
- "brian d foy <bdfoy@cpan.org>"
- ],
- "dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150",
- "license" : [
- "perl_5"
- ],
- "meta-spec" : {
- "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : "2"
- },
- "name" : "Net-MAC-Vendor",
- "no_index" : {
- "directory" : [
- "t",
- "inc"
- ]
- },
- "release_status" : "stable",
- "resources" : {
- "repository" : {
- "type" : "git",
- "web" : "https://github.com/briandfoy/net-mac-vendor"
- }
- },
- "version" : "1.20"
-}
@@ -1,19 +0,0 @@
----
-abstract: 'Look up the network interface vendor by its MAC'
-author:
- - 'brian d foy <bdfoy@cpan.org>'
-build_requires: {}
-dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 2.112150'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: Net-MAC-Vendor
-no_index:
- directory:
- - t
- - inc
-resources:
- repository: https://github.com/briandfoy/net-mac-vendor
-version: 1.20
@@ -63,7 +63,7 @@ use LWP::Simple qw(get);
our $Cached = {};
-our $VERSION = '1.20';
+our $VERSION = '1.22';
=item run( @macs )
@@ -85,11 +85,14 @@ sub run {
foreach my $arg ( @_ ) {
my $lines = lookup( $arg );
+ return unless defined $lines;
unshift @$lines, $arg;
print join "\n", @$lines, '';
}
+
+ return 1;
}
=item lookup( MAC )
@@ -373,7 +376,7 @@ brian d foy C<< <bdfoy@cpan.org> >>
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2004-2013 brian d foy. All rights reserved.
+Copyright (c) 2004-2014 brian d foy. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
@@ -11,10 +11,14 @@ use_ok( $class );
my $private_mac = '00-00-6C';
subtest html => sub {
- my $array = Net::MAC::Vendor::lookup( $private_mac );
- isa_ok( $array, ref [], "Got back array reference" );
+ SKIP: {
+ my $array = Net::MAC::Vendor::lookup( $private_mac );
+ skip 'Could not fetch MAC data', 2 unless defined $array;
- is( $array->[0], 'PRIVATE', 'This is a private entry' );
+ isa_ok( $array, ref [], "Got back array reference" );
+
+ is( $array->[0], 'PRIVATE', 'This is a private entry' );
+ }
};
subtest local_cache => sub {
@@ -13,7 +13,10 @@ open STDOUT, ">", \ my $output;
my $rc = $class->run( '00:0d:93:84:49:ee' );
-like( $output, qr/Apple/, 'OUI belongs to Apple');
+SKIP: {
+ skip 'Problem looking up data', 1 unless defined $rc;
+ like( $output, qr/Apple/, 'OUI belongs to Apple');
+ }
}
done_testing();