lib/Object/Remote/Logging/WarnLogger.pm

   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 max_level => ( is => 'ro', required => 1, default => sub { 'error' } );
   9 has min_level => ( is => 'ro', required => 1, default => sub { 'warn' } );
  10
  11 sub output { warn $_[1] };
  12
  13 1;