package BeginTest;

use strict;
use warnings;

use constant ROUTINES => qw(echo);

BEGIN {
   for my $sub (ROUTINES) {
      no strict 'refs';
      *{"$sub"} = sub { shift if $_[0] eq __PACKAGE__; print $_[0]; };
   }
}

1;