40 lines
601 B
Perl
40 lines
601 B
Perl
|
package Log::Mini::LoggerFILE;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use IO::Handle;
|
||
|
|
|
||
|
|
use base 'Log::Mini::LoggerBase';
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $self = shift->SUPER::new(@_);
|
||
|
|
my (%params) = @_;
|
||
|
|
|
||
|
|
$self->{file} = $params{file};
|
||
|
|
$self->{'level'} = $params{'level'} || 'error';
|
||
|
|
|
||
|
|
open my $fh, '>>', $params{file} or die $!;
|
||
|
|
if (defined $params{'synced'}) {
|
||
|
|
$fh->autoflush;
|
||
|
|
}
|
||
|
|
|
||
|
|
$self->{fh} = $fh;
|
||
|
|
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub _print {
|
||
|
|
my $self = shift;
|
||
|
|
my ($message) = @_;
|
||
|
|
|
||
|
|
my $fh = $self->{fh};
|
||
|
|
print $fh $message;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub DESTROY {
|
||
|
|
close shift->{'fh'};
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
1;
|