Help for this page

Select Code to Download


  1. or download this
    package MyCode;
use strict;
...

__PACKAGE__->run() unless caller();
1;
  2. or download this
    package Sample;
use strict;
...
}

1;
  3. or download this
    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';