view release on metacpan or  search on metacpan

example/test_wrapper.pl  view on Meta::CPAN

			],
		
		sub_apps =>
			{
			# code example for code contained in a perl module
			test_module =>
				{
				description => 'module',
				apropos => [qw(module)],
				
				# save some private data we'll be re-using from the callbacks
				_MODULE_RUNNER => 
					sub
					{
					my ($self, $command, $arguments) =  @_ ;
					eval <<'EOE' ; 
					use lib qw(.) ;
					use test;
					
					test::main($arguments) ;
EOE