File Coverage

lib/Log/Mini.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	28	30	93.3

package Log::Mini;

use strict;
use warnings;

our $VERSION = "0.2.0";

use feature qw/say/;


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

    $type = 'stderr' unless defined $type;

    if ( $type eq 'file' ) {
        require Log::Mini::LoggerFILE;
        return Log::Mini::LoggerFILE->new(@_);
    }
    elsif ( $type eq 'null' ) {
        require Log::Mini::LoggerNULL;
        return Log::Mini::LoggerNULL->new(@args);
    }
    else {
        require Log::Mini::LoggerSTDERR;
        return Log::Mini::LoggerSTDERR->new(@args);
    }
}

1;

__END__