File Coverage

blib/lib/Sys/Export/LogAny.pm

Criterion	Covered	Total	%
statement	19	40	47.5
branch	0	12	0.0
condition	0	4	0.0
subroutine	7	17	41.1
pod			n/a
total	26	73	35.6

package Sys::Export::LogAny;

our $VERSION = '0.006'; # VERSION
# ABSTRACT: Use Log::Any without depending on it


use v5.26;
use warnings;

if (eval 'use Log::Any 1.051; 1') {
   our @ISA= ( 'Log::Any' );
   my $lev= !$ENV{DEBUG}? 'info' : $ENV{DEBUG} > 1? 'trace' : 'debug';
   Log::Any->import(default_adapter => [ 'Stderr', log_level => $lev ]);
} else {
   *get_logger= sub { bless {}, 'Sys::Export::LogAny::_Logger'; };
   *import= sub {
      my $class= shift;
      for (@_) {
         if ($_ eq '$log') {
            my $caller= caller;
            my $logger= $class->get_logger($caller);
            no strict 'refs';
            *{$caller . '::log'}= \$logger;
         }
         else { die "Can't export '$_'"; }
      }
   };
}

package Sys::Export::LogAny::_Logger {
   use v5.26;
   use warnings;
   use experimental qw( signatures );
   sub _dump {
      state $dumper_loaded= require Data::Dumper;
      chomp(my $s= Data::Dumper->new([$_[0]])->Terse(1)->Sortkeys(1)->Dump);
      $s;
   }
   sub is_info { 1 }
   sub info($self, @msg) {
      print STDERR join(' ', @msg)."\n"
   }
   sub infof($self, $fmt, @args) {
      printf STDERR $fmt."\n", map +(ref? _dump($_) : defined? $_ : '(undef)'), @args;
   }
   *error = *warn  = *notice = *info;
   *errorf= *warnf = *noticef= *infof;
   *is_error= *is_warn= *is_notice= *is_info;
   sub is_debug { ($ENV{DEBUG} // 0) >= 1 }
   sub is_trace { ($ENV{DEBUG} // 0) >= 2 }
   sub debug  { is_debug? info (@_) : () }
   sub debugf { is_debug? infof(@_) : () }
   sub trace  { is_trace? info (@_) : () }
   sub tracef { is_trace? infof(@_) : () }
}

1;

__END__