File Coverage

blib/lib/HTTP/Recorder/Logger.pm
Criterion Covered Total %
statement 9 108 8.3
branch 0 26 0.0
condition 0 13 0.0
subroutine 3 20 15.0
pod 0 17 0.0
total 12 184 6.5


line stmt bran cond sub pod time code
1             package HTTP::Recorder::Logger;
2              
3 2     2   9 use strict;
  2         3  
  2         56  
4 2     2   8 use warnings;
  2         2  
  2         59  
5 2     2   7 use LWP::MemberMixin;
  2         3  
  2         2247  
6             our @ISA = qw( LWP::MemberMixin );
7              
8             sub new {
9 0     0 0   my $class = shift;
10              
11 0           my %args = (
12             @_
13             );
14              
15 0   0       my $self = bless ({}, ref ($class) || $class);
16              
17 0   0       $self->{'file'} = $args{'file'} || "/tmp/scriptfile";
18              
19 0           $self->{agentname} = "\$agent";
20              
21 0           return $self;
22             }
23              
24 0     0 0   sub agentname { shift->_elem('agentname', @_); }
25 0     0 0   sub file { shift->_elem('file', @_); }
26              
27             sub GetScript {
28 0     0 0   my $self = shift;
29              
30 0 0         if (open (SCRIPT, $self->{file})) {
31 0           my @script =