| Subject: | patch to fix CPAN Testers reported FAILs |
Currently this distribution features many CPAN Testers FAIL reports
[1,2]. This patch adds several missing dependencies and fixes the tests
to resolve errors that are then subsequently emitted.
[1] http://stats.cpantesters.org/wpcent-recent.html (currently #14)
[2] http://www.cpantesters.org/distro/F/File-Box.html
| Subject: | file-box-barbie.patch |
--- File-Box-0.01/Makefile.PL Thu Dec 31 00:17:49 2009
+++ File-Box-0.01_01/Makefile.PL Wed Mar 10 09:53:38 2010
@@ -5,7 +5,15 @@
WriteMakefile(
NAME => 'File::Box',
VERSION_FROM => 'lib/File/Box.pm', # finds $VERSION
- PREREQ_PM => {}, # e.g., Module::Name => 1.1
+ PREREQ_PM => {
+
+ 'FindBin' => 0,
+ 'File::Basename' => 0,
+ 'Path::Class' => 0,
+ 'Class::Maker' => 0,
+ 'Carp' => 0
+
+ }, # e.g., Module::Name => 1.1
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/File/Box.pm', # retrieve abstract from module
AUTHOR => 'murat <Murat@familiehaase.de>') : ()),
--- File-Box-0.01/t/File-Box.t Thu Dec 31 00:17:49 2009
+++ File-Box-0.01_01/t/File-Box.t Wed Mar 10 10:07:33 2010
@@ -10,7 +10,7 @@
BEGIN
{
use_ok('File::Box');
- use_ok('IO::Extended', ':all' );
+ use_ok('IO::Extended');
};
#########################
@@ -20,36 +20,37 @@
my $box = File::Box->new( env => { SOURCE => '/home/path/src' } );
-println $box->path_home;
+println( $box->path_home );
ok( $box );
-println $box->path_local;
+println( $box->path_local );
ok( $box );
-println $box->request( 'bla.txt' );
+println( $box->request( 'bla.txt' ) );
ok( $box );
-println $box->request( 'bla.txt', '__HOME' );
+println( $box->request( 'bla.txt', '__HOME' ) );
ok( $box );
-println $box->request( 'bla.txt', '__LOCAL' );
+println( $box->request( 'bla.txt', '__LOCAL' ) );
ok( $box );
-println $box->request( 'bla.txt', 'STUPID' );
+println( $box->request( 'bla.txt', 'STUPID' ) );
ok( $box );
-println $box->request( 'bla.txt', '__SOURCE' );
+println( $box->request( 'bla.txt', '__SOURCE' ) );
ok( $box );
-println "Provocate carp now: Ignore dubious !";
+println( "Provocate carp now: Ignore dubious !" );
-println $box->request( 'bla.txt', '__UNKNOWN' );
+eval { println( $box->request( 'bla.txt', '__UNKNOWN' ) ); };
+isnt($@,'');
ok( $box );
--- File-Box-0.01/lib/File/Box.pm Thu Dec 31 00:17:49 2009
+++ File-Box-0.01_01/lib/File/Box.pm Wed Mar 10 09:53:40 2010
@@ -4,12 +4,10 @@
our $VERSION = '0.01';
+use Carp;
use FindBin;
-
use File::Basename qw(dirname);
-
use Path::Class;
-
use Class::Maker qw(:all);
Class::Maker::class