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;
};

##</code><code>##

use Blah;
use Acme::Time::Baby;
print babytime(), "\n";

##</code><code>##

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