package Plack::Handler::Stomp::StupidLogger;
{
$Plack::Handler::Stomp::StupidLogger::VERSION = '1.08';
}
{
$Plack::Handler::Stomp::StupidLogger::DIST = 'Plack-Handler-Stomp';
}
use strict;use warnings;
# ABSTRACT: dead-simple logger for Plack::Handler::Stomp
sub new {
return bless {}, shift;
}
sub debug { }
sub info { }
sub warn {
my ($self,@msg) = @_;
CORE::warn "@msg\n";
}
sub error {
my ($self,@msg) = @_;
CORE::warn "@msg\n";
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Plack::Handler::Stomp::StupidLogger - dead-simple logger for Plack::Handler::Stomp
=head1 VERSION
version 1.08
=head1 METHODS
=head2 C<new>
Minimal constructor, no arguments.
=head2 C<debug>
No-op
=head2 C<info>
No-op
=head2 C<warn>
Calls Perl's C<warn>.
=head2 C<error>
Calls Perl's C<warn>.
=head1 AUTHOR
Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Net-a-porter.com.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut