server_base sucks

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Log.pm

package Catalyst::Log;

use strict;
use base 'Class::Accessor::Fast';

=head1 NAME

Catalyst::Log - Catalyst Log Class

=head1 SYNOPSIS

See L<Catalyst>.

=head1 DESCRIPTION

Simple logging functionality for Catalyst.

=head2 METHODS

=head3 debug

Log debug informations.

=cut

sub debug { _format( 'debug', $_[1] ) }

=head3 error

Log error informations.

=cut

sub error { _format( 'error', $_[1] ) }

=head3 info

Log informations.

=cut

sub info { _format( 'info', $_[1] ) }

=head3 warn

Log warnings.

=cut

sub warn { _format( 'warn', $_[1] ) }

sub _format {
    print STDERR '[' . localtime(time) . "] [catalyst] [$_[0]] $_[1]\n";
}

=head1 SEE ALSO

L<Catalyst>.

=head1 AUTHOR

Sebastian Riedel, C<sri@cpan.org>

=head1 COPYRIGHT

This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

1;