File Coverage

blib/lib/App/VirtPerl/Setup.pm

Criterion	Covered	Total	%
statement	11	20	55.0
branch	1	6	16.6
condition	1	6	16.6
subroutine	5	6	83.3
pod			n/a
total	18	38	47.3

package App::VirtPerl::Setup;
$App::VirtPerl::Setup::VERSION = '0.1';
use strict;
use Config;
use lib ();


my @original_inc;
BEGIN { @original_inc = @INC };

sub import {
	return unless $ENV{PERL_VIRTPERL_ROOT} && $ENV{PERL_VIRTPERL_CURRENT_ENV};

	my $current = "$ENV{PERL_VIRTPERL_ROOT}/$ENV{PERL_VIRTPERL_CURRENT_ENV}/lib/perl5";

	if ($current !~ m:^([\w/.-]+)$:) {  # XXX got to figure this out 100% before release.
		return;
	}

	$current = $1;

	if (-e $current) {
		@INC = grep {
				   !m/^$Config{sitelibexp}/o
				&& !m/^$Config{vendorlibexp}/o
				&& !m/^$Config{updateslib}/o
				&& !m/^$Config{extraslib}/o
			} @INC;

		lib->import($current);
	}
}

sub unimport {
		@INC = @original_inc;
}

1;
__END__