t/lib/compmod.pl

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't';
   5     @INC = '../lib';
   6 }
   7
   8 my $module = shift;
   9
  10 # 'require open' confuses Perl, so we use instead.
  11 eval "use $module ();";
  12 if( $@ ) {
  13     print "not ";
  14     $@ =~ s/\n/\n# /g;
  15     warn "# require failed with '$@'\n";
  16 }
  17 print "ok - $module\n";
  18
  19