File Coverage

blib/lib/XML/EP/Response.pm
Criterion Covered Total %
statement 3 11 27.2
branch 0 4 0.0
condition 0 3 0.0
subroutine 1 4 25.0
pod 0 3 0.0
total 4 25 16.0


line stmt bran cond sub pod time code
1             # -*- perl -*-
2            
3 1     1   789 use strict;
  1         2  
  1         197  
4            
5            
6             package XML::EP::Response;
7            
8             $XML::EP::Response = '0.01';
9            
10             sub new {
11 0     0 0   my $proto = shift;
12 0 0         my $self = { @_ == 1 ? %{shift()} : @_ };
  0            
13 0   0       bless($self, (ref($proto) || $proto))
14             }
15            
16             sub ContentType {
17 0     0 0   my $self = shift;
18 0 0         @_ ? ($self->{'content-type'} = shift) : $self->{'content-type'};
19             }
20            
21             sub Headers {
22 0     0 0   my $self = shift;
23 0           "content-type: " . $self->ContentType() . "\n\n";
24             }