File Coverage

lib/Log/Mini.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	5	6	83.3
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	24	26	92.3

package Log::Mini;

use strict;
use warnings;

our $VERSION = "0.2.1";

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__