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

JJNAPIORK / CatalystX-RequestModel-0.003 / t / lib / Example.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

              
package Example;
{
  package Example::Log;
  use Moose;
  extends 'Catalyst::Log';
  sub _log { }  # kill errors to STDOUT 
  1;
}
use Catalyst;
use Moose;
__PACKAGE__->setup_plugins([qw//]);
__PACKAGE__->log( Example::Log->new ) unless $ENV{CATALYST_DEBUG};
__PACKAGE__->config();
__PACKAGE__->setup();
__PACKAGE__->meta->make_immutable();