t/lib/ExporterTest.pm

   1 package ExporterTest;
   2 use warnings;
   3 use strict;
   4
   5 use base 'Exporter';
   6 use vars qw( @EXPORT_OK $foo );
   7
   8 $foo       = 777;
   9 @EXPORT_OK = qw( $foo foo bar qux );
  10
  11 sub foo { 23 }
  12 sub bar { 12 }
  13 sub qux { 17 }
  14
  15 1;