Untitled

package MDV::Msec::Logger::tofile;

use strict;
use warnings;

use base ('MDV::Msec::Logger');

sub init {
	my ($self) = @_;
	my $filename = $self->get_value('logfile');
	open(my $logfile, $filename);
	$self->{'logfile'} = $logfile;
}

sub end {
	my ($self) = @_;
	my $handle =  $self->{'logfile'};
	close($handle);
}

sub log {
    my ($self, $message) = @_;
	my $handle = $self->{'logfile'};
    print $handle "$message\n";
}

1;