File Coverage

lib/XCAP/Client/Element.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::Element;

use Moose;

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

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

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

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

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

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


1;