The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Basic::Test;

use strict;
use warnings FATAL => 'all';

sub _default {
    my ( $self, $c ) = @_;

    $self->_success($c);
}

sub _success {
    my ( $self, $c ) = @_;

    $c->request->content_type('text/html');

    print "success";
    exit;
}

1;