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

# -*- perl -*-

use strict;


package XML::EP::Response;

$XML::EP::Response = '0.01';

sub new {
    my $proto = shift;
    my $self = { @_ == 1 ? %{shift()} : @_ };
    bless($self, (ref($proto) || $proto))
}

sub ContentType {
    my $self = shift;
    @_ ? ($self->{'content-type'} = shift) : $self->{'content-type'};
}

sub Headers {
    my $self = shift;
    "content-type: " . $self->ContentType() . "\n\n";
}