File Coverage

lib/XCAP/Client/Document.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package XCAP::Client::Document;

use Moose;

has connection => (
    is => 'rw',
    isa => 'Object',
    required => 1,
);

has content => (
    is => 'rw',
    isa => 'Str',
);

sub fetch { $_[0]->connection->get; }

sub delete { $_[0]->connection->delete; }

sub create {
    my $self = shift;
    $self->connection->content($self->content);
    $self->connection->put;
}

sub replace {
    my $self = shift;
    $self->connection->content($self->content);
    $self->connection->delete;
    $self->connection->put;
}


1;