From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JJNAPIORK / Catalyst-Runtime-5.90059_001 / t / lib / TestApp / Controller / Log.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
package TestApp::Controller::Log;
use strict;
use base 'Catalyst::Controller';
sub debug :Local  {
    my ( $self, $c ) = @_;
    $c->log->debug('debug');
    $c->res->body( 'logged' );
}
1;