use FindBin qw( $Bin ); use lib "$Bin/lib"; use My::Special::Purpose::Test::Code qw( :all );