12345678910111213141516171819 package Basic::Test;use strict;use warnings FATAL => 'all';sub _default { &_success;}sub _success { my ( $self, $c ) = @_; $c->request->content_type('text/html'); print "success"; exit;}1;
package
Basic::Test;
use
strict;
warnings
FATAL
=>
'all'
;
sub
_default {
&_success
}
_success {
my
(
$self
,
$c
) =
@_
->request->content_type(
'text/html'
);
print
"success"
exit
1;