File Coverage

blib/lib/MojoX/Log/Dispatch.pm

Criterion	Covered	Total	%
statement	50	62	80.6
branch	4	6	66.6
condition	2	3	66.6
subroutine	26	38	68.4
pod	31	31	100.0
total	113	140	80.7

package MojoX::Log::Dispatch;
use warnings;
use strict;
use base 'Mojo::Log';
use Carp 'croak';
use Log::Dispatch;
use Log::Dispatch::File;
use Log::Dispatch::Screen;

=head1 NAME


MojoX::Log::Dispatch - Log::Dispatch For Mojo

=head1 VERSION

Version 0.06

=cut


our $VERSION = '0.1';


__PACKAGE__->attr(
    'handle' => sub {
        my $self = shift;
		my $dispatcher;
		if ($self->callbacks)
		{
			 $dispatcher = Log::Dispatch->new(callbacks => $self->callbacks);
		}
		else
		{
			$dispatcher = Log::Dispatch->new(@_);
		}

		if ($self->path)
		{
			 $dispatcher->add(Log::Dispatch::File->new( 'name'      => '_default_log_obj',
					                                    'min_level' => $self->level,
					                                    'filename'  => $self->path,
					                                    'mode'      => 'append' )
              											);

		}
		else
		{
			# Create a logging object that will log to STDERR by default
			$dispatcher->add(Log::Dispatch::Screen->new( 	'name'      => '_default_log_obj',
                                           					'min_level' => $self->level,
                                           					'stderr'    => 1 )
    													);
		}
		return $dispatcher;
    }
);

__PACKAGE__->attr('callbacks');
__PACKAGE__->attr('remove_default_log_obj' => 1);


sub dispatcher { return shift->handle }

#some methods from Log::Dispatch
sub add {
	my $self = shift;
	my $l = $self->handle->add(@_);
	#remove default log object that log to STDERR?
	$self->remove('_default_log_obj') if $self->remove_default_log_obj;
	return $l;
}

sub remove { return shift->handle->remove(@_) }
sub output { return shift->handle->output(@_)}
sub would_log {return shift->handle->would_log(@_)}
sub log_to {return shift->handle->log_to(@_) }
sub level_is_valid { return shift->handle->level_is_valid(@_) }
sub log_and_die {  return shift->handle->log_and_die(@_) }
sub log_and_croak {  return shift->handle->log_and_croak(@_) }


sub log
{
	my ($self, $level, @msgs) = @_;

    # Check log level
    $level = lc $level;
    return $self unless $level && $self->is_level($level);

    $self->handle->log('level' => $level,  'message' => @msgs);
    return $self;
}



sub fatal { shift->log('emergency', @_) }
sub emergency { shift->log('emergency', @_) }
sub alert { shift->log('alert', @_) }
sub critical { shift->log('critical', @_) }
sub warning  { shift->log('warning',  @_) }
sub warn  { shift->log('warning',  @_) }
sub notice  { shift->log('notice', @_) }
#short alias syslog style
sub err  { shift->log('error', @_) }
sub crit  { shift->log('critical', @_) }
sub emerg  { shift->log('emergency', @_) }



sub is_level {
    my ($self, $level) = @_;
    return 0 unless $level;
    $level = lc $level;
   	return $self->would_log($level);
}
sub is_fatal { shift->is_level('emergency') }
sub is_emergency { shift->is_level('emergency') }
sub is_alert { shift->is_level('alert') }
sub is_critical { shift->is_level('critical') }
sub is_warning { shift->is_level('warning') }
sub is_warn { shift->is_level('warning') }
sub is_notice { shift->is_level('notice') }
sub is_err { shift->is_level('error') }
sub is_crit { shift->is_level('critical') }
sub is_emerg { shift->is_level('emergency') }

1; # End of MojoX::Log::Dispatch

__END__