File Coverage

lib/Ubic/Logger.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	27	66.6

package Ubic::Logger;
$Ubic::Logger::VERSION = '1.60';
use strict;
use warnings;

# ABSTRACT: very simple logging functions


use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

use parent qw(Exporter);
our @EXPORT = qw( INFO ERROR );

sub INFO {
    print '[', scalar(localtime), "]\t", @_, "\n";
}

sub ERROR {
    my @message = ('[', scalar(localtime), "]\t", @_, "\n");
    if (-t STDOUT) {
        print RED(@message);
    }
    else {
        print @message;
    }
}


1;

__END__