File Coverage

blib/lib/Medusa/Logger.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	6	66.6
condition	2	2	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	38	40	95.0

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) = @_;
	my $time = gmtime;
	flock($self->{fh}, 1);
	use Data::Dumper;
	my $fh = $self->{fh};
	print $fh sprintf("%s %s\n",$time, $line);
	flock($self->{fh}, 0);
	print $time;
}

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

1;

__END__