File Coverage

blib/lib/CPAN/AutoINC.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	2	6	33.3
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	2	0.0
total	29	39	74.3

package CPAN::AutoINC;

use strict;
use CPAN;

our $VERSION = '0.01';

sub new {
    my ($this) = shift;
    my ($class) = ref($this) || $this;

    my $self = bless({}, $class);

    return $self;
}

sub CPAN::AutoINC::INC {
    my ($self, $filename) = @_;

    if ($filename =~ /^(.+)\.pm$/) {
	my $module = $1;
	$module =~ s!/!::!g;

	foreach my $m (expand("Module", $module)) {
	    CPAN::Shell->install($m);

	    foreach my $prefix (@INC) {
		my $realfilename = "$prefix/$filename";
		if (-f $realfilename) {
		    my $fh;

		    return $fh if (open ($fh, $realfilename));
		}
	    }
	}
    }

    return undef;
}

BEGIN {
    push (@INC, new CPAN::AutoINC());
};

1;
__END__