File Coverage

blib/lib/Acme/Intraweb.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	3	10	30.0
condition	0	3	0.0
subroutine	6	6	100.0
pod			n/a
total	29	44	65.9

package Acme::Intraweb;

=begin comment

28600 lines in CPANPLUS. Hard-coded to /usr/home/root - doesn't read user's conf
ig file and a config file or parameters from it can't be specified. Have to edit
 /usr/lib/perl5/site_perl/$perlversion/CPANPLUS/Config.pm.
Might be able to get CPANPLUS working with the PERL5_CPANPLUS_CONFIG environment variable.
Though a 'use lib "/home/person/.cpanplus/"' would make us use the correct per-use
config file...

XXX should let the user will do something like 'use lib' in their code and place
modules there - use a PREFIX of the first thing in @INC. Otherwise superuser
Perl installs will fail. Only when perl is installed by a user/group as is
running the Perl programs will this work.

=cut


$VERSION = 1.02;

use strict;
use warnings;

use CPAN;
use File::Spec;

my $loaded;   # we try to add ourselves to @INC only once and that's on first use
my $tried;    # no second tries on installing a module

sub import {
    $loaded++ or push @INC, sub {

        my $fn = my $mod = $_[1];
        for($mod) { s./.::.g; s/.pm$//i; }

        if ( not $tried->{$mod}++ ) {

            # system qq{cpanp i "$mod"};
            # could dup and then close STDOUT and STDERR for silent option
            CPAN::Shell->install($mod);

            for(@INC) {
                next if ref;
                if(-e "$_/$fn" and -r _) {
                    open my $fh, "$_/$fn" or die $!;
                    return $fh;
                }
            }
        }

        return undef;

    }
}
1;

__END__