File Coverage

blib/lib/glog.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch			n/a
condition			n/a
subroutine	15	17	88.2
pod	10	11	90.9
total	52	57	91.2

package glog;
use strict;
use warnings;
use Exporter qw(import);
use POSIX qw(strftime);
use Test::More;
use glog::logger;

our $VERSION = '1.0.5';
our @EXPORT = qw(Logger LogLevel Log LogFormat LogF LogFile LogDie LogWarn LogInfo LogDebug LogErr);

our $GLOG = glog::logger->new;

sub Logger    { glog::logger->new }
sub LogLevel  { $GLOG->LogLevel(@_); }
sub Log       { $GLOG->Log(@_); }
sub LogFormat { $GLOG->LogFormat(@_); }
sub LogF      { $GLOG->LogFormat(@_); }
sub LogFile   { $GLOG->LogFile(@_); }
sub LogDie    { $GLOG->LogDie(@_); }
sub LogWarn   { $GLOG->LogWarn(@_); }
sub LogInfo   { $GLOG->LogInfo(@_); }
sub LogDebug  { $GLOG->LogDebug(@_); }
sub LogErr    { $GLOG->LogErr(@_); }

1;