view release on metacpan or  search on metacpan

t/lib/MyAppFail/FailTest.pm  view on Meta::CPAN

package MyAppFail::FailTest;

use strict;
use base qw(App::CLI::Command);

sub run {

    my($self, @args) = @_;
    $self->throw("dying message");
}
1;