4 use base 'Class::Accessor::Fast';
7 $Data::Dumper::Terse = 1;
11 Catalyst::Log - Catalyst Log Class
19 Simple logging functionality for Catalyst.
27 Logs a debugging message.
31 sub debug { _format( 'debug', $_[1] ) }
35 Logs a formatted dump of a variable passed by reference (uses C<Data::Dumper>).
39 sub dump { _format( 'dump', Dumper( $_[1] ) ) }
43 Logs an error message.
47 sub error { _format( 'error', $_[1] ) }
51 Logs an informational message.
55 sub info { _format( 'info', $_[1] ) }
59 Logs a warning message.
63 sub warn { _format( 'warn', $_[1] ) }
66 print STDERR '[' . localtime(time) . "] [catalyst] [$_[0]] $_[1]\n";
77 Sebastian Riedel, C<sri@cpan.org>
81 This program is free software, you can redistribute it and/or modify it under
82 the same terms as Perl itself.