Select Code to Download

package MyCode;
use strict;
...

__PACKAGE__->run() unless caller();
1;

package Sample;
use strict;
...
}

1;

use Test::More tests=>1;
use Test::Exception;
...
local @ARGV; # now undef
dies_ok { Sample->run() } 'no args dies as expected';
like $@, qr/^usage:/, 'got a usage message';