lib/Module/Load/t/to_load/TestModule.pm

   1 package TestModule;
   2
   3 use strict;
   4 require Exporter;
   5 use vars qw(@EXPORT @EXPORT_OK @ISA $IMPORTED);
   6
   7 @ISA        = qw(Exporter);
   8 @EXPORT     = qw(func2);
   9 @EXPORT_OK  = qw(func1);
  10
  11 ### test if import gets called properly
  12 sub import   { $IMPORTED = 1; goto &Exporter::import; }
  13 sub imported { $IMPORTED;       }
  14
  15 sub func1    { return "func1";  }
  16
  17 sub func2    { return "func2";  }
  18
  19 1;