@@ -31,8 +31,9 @@ t/15-usb_dev_configuration.t
t/16-usb_dev_interface.t
t/17-usb_dev_endpoint.t
t/18-usb_device-configurations.t
-t/boilerplate.t
-t/pod-coverage.t
-t/pod.t
+xt/boilerplate.t
+xt/pod-coverage.t
+xt/pod.t
t/TestTools.pm
USB.pm
+META.json Module JSON meta-data (added by MakeMaker)
@@ -0,0 +1,45 @@
+{
+ "abstract" : "Use libusb to access USB devices.",
+ "author" : [
+ "G. Wade Johnson <gwadej@cpan.org>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.112621",
+ "license" : [
+ "unknown"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Device-USB",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : 0
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : 0,
+ "Inline::MakeMaker" : 0
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Carp" : 0,
+ "Inline" : 0,
+ "Inline::C" : 0,
+ "Test::More" : 0
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "0.36"
+}
@@ -1,26 +1,26 @@
---- #YAML:1.0
-name: Device-USB
-version: 0.35
-abstract: Use libusb to access USB devices.
+---
+abstract: 'Use libusb to access USB devices.'
author:
- - G. Wade Johnson <wade@anomaly.org>
-license: unknown
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - 'G. Wade Johnson <gwadej@cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- Carp: 0
- Inline: 0
- Inline::C: 0
- Inline::MakeMaker: 0
- Test::More: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.50
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+ Inline::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.112621'
+license: unknown
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Device-USB
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Carp: 0
+ Inline: 0
+ Inline::C: 0
+ Test::More: 0
+version: 0.36
@@ -48,26 +48,31 @@ END
WriteMakefile(
NAME => 'Device::USB',
- AUTHOR => 'G. Wade Johnson <wade@anomaly.org>',
+ AUTHOR => 'G. Wade Johnson <gwadej@cpan.org>',
VERSION_FROM => 'lib/Device/USB.pm',
ABSTRACT_FROM => 'lib/Device/USB.pm',
PL_FILES => {},
PREREQ_PM => {
'Test::More' => 0,
- 'Inline' => 0,
- 'Inline::C' => 0,
- 'Inline::MakeMaker' => 0,
- 'Carp' => 0,
+ 'Inline' => 0,
+ 'Inline::C' => 0,
+ 'Carp' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => {
FILES => 'Device-USB-* USB.inl _Inline'
},
+ CONFIGURE_REQUIRES => {
+ "ExtUtils::MakeMaker" => 0,
+ 'Inline::MakeMaker' => 0,
+ },
);
sub header_found
{
+ return 1 if $^O eq 'linux';
+
foreach my $dir (qw(/usr/include /usr/local/include), $ENV{LIBUSB_INCDIR})
{
return 1 if defined $dir && -e "$dir/usb.h";
@@ -78,11 +83,14 @@ sub header_found
sub lib_found
{
+ return 1 if $^O eq 'linux';
+
foreach my $dir (qw(/usr/local/lib64 /usr/lib64 /lib64 /usr/lib /usr/local/lib),
$ENV{LIBUSB_LIBDIR})
{
return 1 if defined $dir && ($^O =~ /win/i ? (-e "$dir/libusb.lib" || -e "$dir/libusb.a") : -e "$dir/libusb.so") ;
}
+
return;
}
@@ -14,7 +14,7 @@ use Inline (
),
($ENV{LIBUSB_INCDIR} ? ( INC => "-I\"$ENV{LIBUSB_INCDIR}\"" ) : () ),
NAME => 'Device::USB',
- VERSION => '0.35',
+ VERSION => '0.36',
);
Inline->init();
@@ -39,17 +39,19 @@ use constant CLASS_HUB => 9;
use constant CLASS_DATA => 10;
use constant CLASS_VENDOR_SPEC => 0xff;
+=encoding utf8
+
=head1 NAME
Device::USB - Use libusb to access USB devices.
=head1 VERSION
-Version 0.35
+Version 0.36
=cut
-our $VERSION=0.35;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -461,7 +463,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -516,7 +518,7 @@ interrupt_read.
=head1 COPYRIGHT & LICENSE
-Copyright 2006-2009 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -5,6 +5,7 @@ use warnings;
use strict;
use Carp;
+=encoding utf8
=head1 NAME
@@ -12,11 +13,11 @@ Device::USB::Bus - Use libusb to access USB devices.
=head1 VERSION
-Version 0.12
+Version 0.36
=cut
-our $VERSION=0.12;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -189,7 +190,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -213,7 +214,7 @@ spotting, reporting, and (sometimes) fixing bugs.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -16,11 +16,11 @@ Device::USB::DevConfig - Access the device configuration returned by libusb.
=head1 VERSION
-Version 0.12
+Version 0.36
=cut
-our $VERSION=0.12;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -140,7 +140,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -161,7 +161,7 @@ and helped with the development.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -16,11 +16,11 @@ Device::USB::DevEndpoint - Access a device endpoint returned by libusb.
=head1 VERSION
-Version 0.11
+Version 0.36
=cut
-our $VERSION=0.11;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -110,7 +110,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -131,7 +131,7 @@ and helped with the development.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -16,11 +16,11 @@ Device::USB::DevInterface - Access a device interface returned by libusb.
=head1 VERSION
-Version 0.11
+Version 0.36
=cut
-our $VERSION=0.11;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -146,7 +146,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -167,7 +167,7 @@ and helped with the development.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -18,11 +18,11 @@ Device::USB::Device - Use libusb to access USB devices.
=head1 VERSION
-Version 0.29
+Version 0.36
=cut
-our $VERSION=0.29;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -910,7 +910,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -931,7 +931,7 @@ and helped with the development.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -131,7 +131,7 @@ L<http://libusb.sourceforge.net/>.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -143,7 +143,7 @@ list. In particular, Anthony L. Awtrey who contributed the first FAQ answer.
=head1 COPYRIGHT & LICENSE
-Copyright 2006 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This document is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -14,7 +14,7 @@ use Inline (
),
($ENV{LIBUSB_INCDIR} ? ( INC => "-I\"$ENV{LIBUSB_INCDIR}\"" ) : () ),
NAME => 'Device::USB',
- VERSION => '0.35',
+ VERSION => '0.36',
);
Inline->init();
@@ -39,17 +39,19 @@ use constant CLASS_HUB => 9;
use constant CLASS_DATA => 10;
use constant CLASS_VENDOR_SPEC => 0xff;
+=encoding utf8
+
=head1 NAME
Device::USB - Use libusb to access USB devices.
=head1 VERSION
-Version 0.35
+Version 0.36
=cut
-our $VERSION=0.35;
+our $VERSION=0.36;
=head1 SYNOPSIS
@@ -461,7 +463,7 @@ that is the entire reason for the module's existence.
=head1 AUTHOR
-G. Wade Johnson (wade at anomaly dot org)
+G. Wade Johnson (gwadej at cpan dot org)
Paul Archer (paul at paularcher dot org)
Houston Perl Mongers Group
@@ -516,7 +518,7 @@ interrupt_read.
=head1 COPYRIGHT & LICENSE
-Copyright 2006-2009 Houston Perl Mongers
+Copyright 2006-2013 Houston Perl Mongers
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
@@ -1,51 +0,0 @@
-#!perl -T
-
-use Test::More tests => 3;
-use Carp;
-use strict;
-use warnings;
-
-sub not_in_file_ok {
- my ($filename, %regex) = @_;
- open my $fh, "<", $filename
- or croak "couldn't open $filename for reading: $!";
-
- my %violated;
-
- while (my $line = <$fh>) {
- while (my ($desc, $regex) = each %regex) {
- if ($line =~ $regex) {
- push @{$violated{$desc}||=[]}, $.;
- }
- }
- }
-
- if (%violated) {
- fail("$filename contains boilerplate text");
- diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
- } else {
- pass("$filename contains no boilerplate text");
- }
- return;
-}
-
-not_in_file_ok(README =>
- "The README is used..." => qr/The README is used/,
- "'version information here'" => qr/to provide version information/,
-);
-
-not_in_file_ok(Changes =>
- "placeholder date/time" => qr(Date/time)
-);
-
-sub module_boilerplate_ok {
- my ($module) = @_;
- not_in_file_ok($module =>
- 'the great new $MODULENAME' => qr/ - The great new /,
- 'boilerplate description' => qr/Quick summary of what the module/,
- 'stub function definition' => qr/function[12]/,
- );
- return;
-}
-
-module_boilerplate_ok('lib/Device/USB.pm');
@@ -1,20 +0,0 @@
-#!perl -T
-
-use Test::More;
-use strict;
-use warnings;
-
-eval "use Test::Pod::Coverage 1.04"; ## no critic (ProhibitStringyEval)
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
-all_pod_coverage_ok(
- { also_private => [
- qr/^libusb_\w+$/,
- qr/^dl_load_flags$/,
- qr/^lib_find_usb_device$/,
- qr/^lib_get_usb_busses$/,
- qr/^lib_list_busses$/,
- qr/^lib_debug_mode$/,
- qr/^DeviceUSBDebugLevel$/,
- ]
- }
-);
@@ -1,9 +0,0 @@
-#!perl -T
-
-use Test::More;
-use strict;
-use warnings;
-
-eval "use Test::Pod 1.14"; ## no critic (ProhibitStringyEval)
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
-all_pod_files_ok();
@@ -0,0 +1,51 @@
+#!perl -T
+
+use Test::More tests => 3;
+use Carp;
+use strict;
+use warnings;
+
+sub not_in_file_ok {
+ my ($filename, %regex) = @_;
+ open my $fh, "<", $filename
+ or croak "couldn't open $filename for reading: $!";
+
+ my %violated;
+
+ while (my $line = <$fh>) {
+ while (my ($desc, $regex) = each %regex) {
+ if ($line =~ $regex) {
+ push @{$violated{$desc}||=[]}, $.;
+ }
+ }
+ }
+
+ if (%violated) {
+ fail("$filename contains boilerplate text");
+ diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
+ } else {
+ pass("$filename contains no boilerplate text");
+ }
+ return;
+}
+
+not_in_file_ok(README =>
+ "The README is used..." => qr/The README is used/,
+ "'version information here'" => qr/to provide version information/,
+);
+
+not_in_file_ok(Changes =>
+ "placeholder date/time" => qr(Date/time)
+);
+
+sub module_boilerplate_ok {
+ my ($module) = @_;
+ not_in_file_ok($module =>
+ 'the great new $MODULENAME' => qr/ - The great new /,
+ 'boilerplate description' => qr/Quick summary of what the module/,
+ 'stub function definition' => qr/function[12]/,
+ );
+ return;
+}
+
+module_boilerplate_ok('lib/Device/USB.pm');
@@ -0,0 +1,20 @@
+#!perl -T
+
+use Test::More;
+use strict;
+use warnings;
+
+eval "use Test::Pod::Coverage 1.04"; ## no critic (ProhibitStringyEval)
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok(
+ { also_private => [
+ qr/^libusb_\w+$/,
+ qr/^dl_load_flags$/,
+ qr/^lib_find_usb_device$/,
+ qr/^lib_get_usb_busses$/,
+ qr/^lib_list_busses$/,
+ qr/^lib_debug_mode$/,
+ qr/^DeviceUSBDebugLevel$/,
+ ]
+ }
+);
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More;
+use strict;
+use warnings;
+
+eval "use Test::Pod 1.14"; ## no critic (ProhibitStringyEval)
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();