my $self = shift;
my $level = shift;
my $message = join( "\n", @_ );
- $self->{body} .= sprintf( "[%s] %s\n", $level, $message );
+ $message .= "\n" unless $message =~ /\n$/;
+ $self->{body} .= sprintf( "[%s] %s", $level, $message );
}
sub _flush {
L<Catalyst>.
-=head1 AUTHOR
+=head1 AUTHORS
-Sebastian Riedel, C<sri@cpan.org>
-Marcus Ramberg, C<mramberg@cpan.org>
-Christian Hansen, C<ch@ngmedia.com>
+Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT