File Coverage

blib/lib/Sleep/Response.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	4	8	50.0
pod	4	4	100.0
total	20	41	48.7

package Sleep::Response;

use strict;
use warnings;

use Carp;
use JSON::XS;

sub new {
    my $klass = shift;
    my $args = shift || {};

    my $self = bless { %$args }, $klass;

    return $self;
}

sub data {
    my $self = shift;
    return $self->{data};
}

sub location {
    my $self = shift;
    return $self->{location};
}

sub encode {
    my $self = shift;
    my $as = shift;

    if ($as eq 'application/json') {
        return encode_json($self->data());
    }

    croak "Can't encode";
}

1;

__END__