File Coverage

blib/lib/MarpaX/Languages/C/AST/Impl/Logger.pm

Criterion	Covered	Total	%
statement	25	36	69.4
branch	3	10	30.0
condition	1	11	9.0
subroutine	8	11	72.7
pod			n/a
total	37	68	54.4

use strict;
use warnings FATAL => 'all';

package MarpaX::Languages::C::AST::Impl::Logger;

# ABSTRACT: Log::Any implementation on top of Marpa

use diagnostics;
use Carp;
use Log::Any;

our $VERSION = '0.46'; # VERSION

sub BEGIN {
    #
    ## Some Log implementation specificities
    #
    my $log4perl = eval 'use Log::Log4perl; 1;' || 0; ## no critic
    if ($log4perl) {
        #
        ## Here we put know hooks for logger implementations
        #
        Log::Log4perl->wrapper_register(__PACKAGE__);
    }
}

sub TIEHANDLE {
  my($class, %options) = @_;

  my $self = {
              level => exists($options{level}) ? ($options{level} || 'trace') : 'trace',
              category => exists($options{category}) ? $options{category} : undef, # undef is ok
             };

  $self->{logger} = Log::Any->get_logger(category => $self->{category});

  bless $self, $class;
}

sub PRINT {
  my $self = shift;
  my $logger = $self->{logger} || '';
  my $level = $self->{level} || '';
  if ($logger && $level) {
    $logger->trace(@_);
  }
  return 1;
}

sub PRINTF {
  my $self = shift;
  return $self->PRINT(sprintf(@_));
}

sub UNTIE {
  my ($obj, $count) = @_;
  if ($count) {
    croak "untie attempted while $count inner references still exist";
  }
}


1;

__END__