15 lines
189 B
Perl
15 lines
189 B
Perl
package Log::Mini::LoggerSTDERR;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'Log::Mini::LoggerBase';
|
|
|
|
sub _print {
|
|
my $self = shift;
|
|
my ($message) = @_;
|
|
|
|
print STDERR $message;
|
|
}
|
|
|
|
1;
|