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