File Coverage

blib/lib/Module/LocalLoad.pm

Criterion	Covered	Total	%
statement	25	47	53.1
branch	0	22	0.0
condition			n/a
subroutine	8	10	80.0
pod	1	1	100.0
total	34	80	42.5

package Module::LocalLoad;
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.172';

use Carp();
use File::Copy();
use File::Path();

my $PERL_HACK_LIB = $ENV{PERL_HACK_LIB};

sub import {
  my $who = (caller(1))[0];

  {
    no strict 'refs';
    *{"${who}::load"} = *load;

  }
}

sub load {
  my $module = shift or return;

  my $who = (caller(1))[0];

  if(!defined($PERL_HACK_LIB)) {
    Carp::croak("Environment variable \$PERL_HACK_LIB not set! Aborting.\n");
  }

  my $slashed_module = _colon_to_slash( $module );

  if(! -d "$PERL_HACK_LIB/$slashed_module") {
    File::Path::make_path("$PERL_HACK_LIB/$slashed_module")
      or Carp::croak("Cant mkdir $PERL_HACK_LIB/$slashed_module: $!\n");
  }

  my $found_pm;
  for my $dir_in_inc(@INC) {
    if($dir_in_inc eq $PERL_HACK_LIB) {
      next;
    }
    if( -f "$dir_in_inc/$slashed_module.pm") {
      $found_pm = "$dir_in_inc/$slashed_module.pm";
      last;
    }
  }

  if(!defined($found_pm)) {
    Carp::croak("Could not find $module in \@INC\n");
  }

  if(! -f "$PERL_HACK_LIB/$slashed_module.pm") {
    File::Copy::copy($found_pm, "$PERL_HACK_LIB/$slashed_module.pm")
      or Carp::croak(
      "Can not copy $found_pm to $PERL_HACK_LIB/$slashed_module.pm: $!"
    );
  }

  unshift(@INC, $PERL_HACK_LIB) unless $INC[0] eq $PERL_HACK_LIB;

  eval "require $module";
  $@ ? Carp::croak("Error loading $module: $@\n") : return 1;
}


sub _colon_to_slash { return join('/', split(/::/, shift)) }


1;

__END__