package HTTP::Recorder::Httperf::Logger;
use base 'HTTP::Recorder::Logger';
use strict;
use warnings;


$HTTP::Recorder::Httperf::Logger::VERSION = '0.01';
#just override the 'Log' method.
sub Log 
{
  my ($self, $line) = @_;
  my $scriptfile = $self->{'file'};
  open (SCRIPT, ">>$scriptfile") or die "Couldn't open $scriptfile: $!";
  print SCRIPT $line;
  close SCRIPT or die "Couldn't close $scriptfile";
}


1;