#!/usr/bin/perl --
use strict;
use warnings;

MeMyselfTestSuite() unless  caller ;
exit 0;

BEGIN {
    package MeMyself;
    use Module::Load qw/ /;
    use Data::Dump qw/ dd /;
    $INC{ Module::Load::_to_file( __PACKAGE__ ) } = __FILE__;
    sub import { dd( \@_ , [caller] ); }
    1;
}


sub MeMyselfTestSuite {
    use Module::Load;
    load( 'MeMyself', 1,2,3,4 );
}