$self->abort(undef);
}
else {
- print( STDERR $self->body );
+ $self->_send_to_log( $self->body );
}
$self->body(undef);
}
+sub _send_to_log {
+ my $self = shift;
+ print STDERR @_;
+}
+
1;
__END__
=head1 DESCRIPTION
-This module provides the default, simple logging functionality for
-Catalyst.
-If you want something different set C<$c->log> in your application
-module, e.g.:
+This module provides the default, simple logging functionality for Catalyst.
+If you want something different set C<< $c->log >> in your application module,
+e.g.:
$c->log( MyLogger->new );
$c->log->abort(1) if $c->log->can('abort');
+=head2 _send_to_log
+
+ $log->_send_to_log( @messages );
+
+This protected method is what actually sends the log information to STDERR.
+You may subclass this module and override this method to get finer control
+over the log output.
+
=head1 SEE ALSO
L<Catalyst>.