File Coverage

blib/lib/Amazon/S3/Lite/Logger.pm

Criterion	Covered	Total	%
statement	7	16	43.7
branch			n/a
condition			n/a
subroutine	3	8	37.5
pod	0	6	0.0
total	10	30	33.3

########################################################################
# Minimal STDERR logger — used when Log::Log4perl is not available
# Implements the same interface callers expect
########################################################################
package Amazon::S3::Lite::Logger;

use strict;
use warnings;

our $VERSION = '1.0.1';

sub new { return bless {}, shift }

sub trace { }  # silent
sub debug { }  # silent

sub info {
  my ( $self, $msg ) = @_;
  print {*STDERR} "INFO  - $msg\n";
}

sub warn { ## no critic (Subroutines::ProhibitBuiltinHomonyms)
  my ( $self, $msg ) = @_;
  print {*STDERR} "WARN  - $msg\n";
}

sub error {
  my ( $self, $msg ) = @_;
  print {*STDERR} "ERROR - $msg\n";
}

1;