File Coverage

blib/lib/App/TenableSC/Logger.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	5	6	83.3
total	17	34	50.0

package App::TenableSC::Logger;

use strict;
use warnings;

use Time::Piece;

our $VERSION = '0.310';

#-------------------------------------------------------------------------------
# CONSTRUCTOR
#-------------------------------------------------------------------------------

sub new {
    my $class = shift;
    return bless {}, $class;
}

#-------------------------------------------------------------------------------

sub log {
    my ( $self, $level, $message ) = @_;

    my $now = Time::Piece->new->datetime;
    print STDERR "[$now] [$$] $level - $message\n";

    return;
}

#-------------------------------------------------------------------------------

sub info    { shift->log( 'INFO',    shift ) }
sub debug   { shift->log( 'DEBUG',   shift ) }
sub warning { shift->log( 'WARNING', shift ) }
sub error   { shift->log( 'ERROR',   shift ) }

#-------------------------------------------------------------------------------

1;

__END__