[scpubgit/Object-Remote.git] / lib / Object / Remote / Logging / WarnLogger.pm

package Object::Remote::Logging::WarnLogger;

use Moo;

extends 'Object::Remote::Logging::Logger';

has format => ( is => 'ro', required => 1, default => sub { '%s at %f line %i, log level: %l' } );
has min_level => ( is => 'ro', required => 1, default => sub { 'warn' } );

sub output { warn $_[1] };

1;
Commit	Line	Data
1b5b145b	1	package Object::Remote::Logging::WarnLogger;
	2
	3	use Moo;
	4
	5	extends 'Object::Remote::Logging::Logger';
	6
	7	has format => ( is => 'ro', required => 1, default => sub { '%s at %f line %i, log level: %l' } );
	8	has min_level => ( is => 'ro', required => 1, default => sub { 'warn' } );
	9
	10	sub output { warn $_[1] };
	11
	12	1;