File Coverage

lib/Log/Mini.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	8	8	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	34	35	97.1

package Log::Mini;

use strict;
use warnings;
use Module::Load qw/load/;

require Carp;

our $VERSION = "0.5.3";

sub new
{
    shift;
    my ($type, @args) = @_;

    @args = () unless @args;

    $type = 'stderr' unless defined $type;

    if ($type eq 'file') {
        unshift(@args, $type);
    }

    my $module_name = sprintf('Log::Mini::Logger::%s', uc($type));
    my $logger;

    eval {
        load $module_name;

        $logger = $module_name->new(@args);
    } or do { Carp::croak(sprintf("Failed to load adapter: %s, %s\n", $type, $@)) };

    return $logger;
}

1;

__END__