16 lines
189 B
Perl
16 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;
|