File Coverage

blib/lib/Medusa/Logger.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	4	6	66.6
condition	2	2	100.0
subroutine	6	8	75.0
pod	4	5	80.0
total	37	46	80.4

package Medusa::Logger;

use strict;
use warnings;

sub new {
	my ($pkg, %args) = (shift, @_ > 1 ? @_ : %{$_[1] || {}});
	$args{file} ||= 'audit.log';
	my $self = bless \%args, $pkg;
	open my $fh, '>>', $self->{file} or die $!;
	$self->{fh} = $fh;
	return $self;
}

sub debug {
	my ($self, $line) = @_;
	$self->log($line);
}

sub error {
	my ($self, $line) = @_;
	$self->log($line);
}

sub info {
	my ($self, $line) = @_;
	$self->log($line);
}

sub log {
	my ($self, $line) = @_;
	flock($self->{fh}, 1);
	my $fh = $self->{fh};
	print $fh $line . "\n";
	flock($self->{fh}, 0);
}

sub DESTROY {
	close $_[0]->{fh};
}

1;

__END__