lib/RT/Extension/ImportCustomFieldValues/Test.pm.in

   1 use strict;
   2 use warnings;
   3
   4 ### after: use lib qw(@RT_LIB_PATH@);
   5 use lib qw(/opt/rt4/local/lib /opt/rt4/lib);
   6
   7 package RT::Extension::ImportCustomFieldValues::Test;
   8
   9 our @ISA;
  10 BEGIN {
  11     local $@;
  12     eval { require RT::Test; 1 } or do {
  13         require Test::More;
  14         Test::More::BAIL_OUT(
  15             "requires 3.8 to run tests. Error:\n$@\n"
  16             ."You may need to set PERL5LIB=/path/to/rt/lib"
  17         );
  18     };
  19     push @ISA, 'RT::Test';
  20 }
  21
  22 sub import {
  23     my $class = shift;
  24     my %args  = @_;
  25
  26     $args{'requires'} ||= [];
  27     if ( $args{'testing'} ) {
  28         unshift @{ $args{'requires'} }, 'RT::Extension::ImportCustomFieldValues';
  29     } else {
  30         $args{'testing'} = 'RT::Extension::ImportCustomFieldValues';
  31     }
  32
  33     $class->SUPER::import( %args );
  34     $class->export_to_level(1);
  35
  36     require RT::Extension::ImportCustomFieldValues;
  37 }
  38
  39 1;