10 package TestHelpScript;
12 with 'Catalyst::ScriptRole';
14 sub print_usage_text { $help++ }
21 local $TestHelpScript::help;
24 TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
26 ok $TestHelpScript::help, 'Got help';