Select Code to Download

         use Test::StubGenerator;

...
         );

         print $stub->gen_testfile;

         $ perl -MTest::StubGenerator -e '
         > my $stub = Test::StubGenerator->new({ file => "Module.pm" }
+);
         > print $stub->gen_testfile;' > Module.t

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)