X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FRestTest.pm;h=6af6fa05b16a8aec626c447b12d9bdf9859d2c70;hb=d93988fd263249693b54659faf5fde139d2358aa;hp=59ebdf9938e68191d54eb3ff799d62eff544ab96;hpb=d273984026646e5b57c052deef3fcb9121122060;p=catagits%2FCatalyst-Controller-DBIC-API.git diff --git a/t/lib/RestTest.pm b/t/lib/RestTest.pm index 59ebdf9..6af6fa0 100644 --- a/t/lib/RestTest.pm +++ b/t/lib/RestTest.pm @@ -10,14 +10,14 @@ use Catalyst::Runtime '5.70'; # -Debug: activates the debug mode for very useful log messages # ConfigLoader: will load the configuration from a YAML file in the # application's home directory -# Static::Simple: will serve static files from the application's root +# Static::Simple: will serve static files from the application's root # directory use Catalyst; our $VERSION = '0.01'; -# Configure the application. +# Configure the application. # # Note that settings in RestTest.yml (or other external # configuration file that you set up manually) take precedence @@ -31,6 +31,15 @@ __PACKAGE__->config( name => 'RestTest' ); # Start the application __PACKAGE__->setup; +my $logger = Class::MOP::Class->create( + 'MyLog', + methods => { + (map { ($_ => sub { () }), ("is_${_}" => sub { () }) } qw(debug info warn error fatal)), + (map { ($_ => sub { () }) } qw(level levels enable disable abort)), + }, +); + +__PACKAGE__->log($logger->new_object); =head1 NAME