File Coverage

blib/lib/HTTP/Recorder/Logger.pm
Criterion Covered Total %
statement 12 116 10.3
branch 0 28 0.0
condition 0 13 0.0
subroutine 4 21 19.0
pod 0 17 0.0
total 16 195 8.2


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