Stuff

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 $handle, $filename);
	$self->{'loghandle'} = $handle;
}

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

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

1;