use strict;
use CPANPLUS;
push @INC, sub {
my ($code, $file) = @_;
my $module = $file;
$module =~ s!/!::!g;
$module =~ s!\.pm$!!g;
install($module);
for (@INC) {
next if ref;
if (-e "$_/$file" and -r _) {
open my $fh, '<', "$_/$file" or die $!;
return $fh;
}
}
return undef;
};
####
use Blah;
use Acme::Time::Baby;
print babytime(), "\n";
##
##
3;0 root@ouranos:/home/juerd/modtest# perl test.pl
Checking if your kit is complete...
Looks good
Writing Makefile for Acme::Time::Baby
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl/5.6.1 -I/
usr/share/perl/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=(eva
l(chr(36).q(|=1))-1); runtests @ARGV;' t/*.t
t/00_en..........ok
t/01_du..........ok
t/02_custom......ok
t/03_noimport....ok
t/04_chef........ok
t/05_warez.......ok
t/06_de..........ok
t/07_fr..........ok
t/08_no..........ok
t/09_it..........ok
All tests successful.
Files=10, Tests=12972, 6 wallclock secs ( 2.33 cusr + 0.17 csys = 2.50 CPU)
Installing of Acme::Time::Baby succesfull
The big hand is on the eight and the little hand is on the ten
3;0 root@ouranos:/home/juerd/modtest# perl test.pl
The big hand is on the nine and the little hand is on the ten