File Coverage

blib/lib/HTTP/Recorder/Httperf/Logger.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package HTTP::Recorder::Httperf::Logger;
2 2     2   11 use base 'HTTP::Recorder::Logger';
  2         3  
  2         3073  
3             use strict;
4             use warnings;
5              
6              
7             $HTTP::Recorder::Httperf::Logger::VERSION = '0.01';
8             #just override the 'Log' method.
9             sub Log
10             {
11             my ($self, $line) = @_;
12             my $scriptfile = $self->{'file'};
13             open (SCRIPT, ">>$scriptfile") or die "Couldn't open $scriptfile: $!";
14             print SCRIPT $line;
15             close SCRIPT or die "Couldn't close $scriptfile";
16             }
17              
18              
19             1;
20