4 use base 'Class::Accessor::Fast';
7 $Data::Dumper::Terse = 1;
11 Catalyst::Log - Catalyst Log Class
19 Simple logging functionality for Catalyst.
25 Log debug informations.
29 sub debug { _format( 'debug', $_[1] ) }
37 sub dump { _format( 'dump', Dumper( $_[1] ) ) }
41 Log error informations.
45 sub error { _format( 'error', $_[1] ) }
53 sub info { _format( 'info', $_[1] ) }
61 sub warn { _format( 'warn', $_[1] ) }
64 print STDERR '[' . localtime(time) . "] [catalyst] [$_[0]] $_[1]\n";
73 Sebastian Riedel, C<sri@cpan.org>
77 This program is free software, you can redistribute it and/or modify it under
78 the same terms as Perl itself.