1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1use warnings; 3*5759b3d2Safresh1 4*5759b3d2Safresh1package MyTest; 5*5759b3d2Safresh1 6*5759b3d2Safresh1use Test::Builder; 7*5759b3d2Safresh1 8*5759b3d2Safresh1my $Test = Test::Builder->new; 9*5759b3d2Safresh1 10*5759b3d2Safresh1sub ok 11*5759b3d2Safresh1{ 12*5759b3d2Safresh1 $Test->ok(@_); 13*5759b3d2Safresh1} 14*5759b3d2Safresh1 15*5759b3d2Safresh11; 16