10 *CORE::GLOBAL::exit = sub {};
13 package TestHelpScript;
15 with 'Catalyst::ScriptRole';
17 sub print_usage_text { $help++ }
24 local $TestHelpScript::help;
27 TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
29 ok $TestHelpScript::help, 'Got help';