1use strict; 2use warnings; 3 4package SmallTest; 5 6require Exporter; 7 8use vars qw( @ISA @EXPORT ); 9@ISA = qw( Exporter ); 10@EXPORT = qw( ok is_eq is_num ); 11 12use Test::Builder; 13 14my $Test = Test::Builder->new; 15 16sub ok 17{ 18 $Test->ok(@_); 19} 20 21sub is_eq 22{ 23 $Test->is_eq(@_); 24} 25 26sub is_num 27{ 28 $Test->is_num(@_); 29} 30 31sub getTest 32{ 33 return $Test; 34} 351; 36