util/with_fallback.pm

   1 #! /usr/bin/perl
   2
   3 package with_fallback;
   4
   5 sub import {
   6     use File::Basename;
   7     use File::Spec::Functions;
   8     foreach (@_) {
   9         eval "require $_";
  10         if ($@) {
  11             unshift @INC, catdir(dirname(__FILE__), "..", "external", "perl");
  12             my $transfer = "transfer::$_";
  13             eval "require $transfer";
  14             shift @INC;
  15             warn $@ if $@;
  16         }
  17     }
  18 }
  19 1;