File Coverage

blib/lib/Net/STF/Bucket.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	0	4	0.0
total	8	24	33.3

package Net::STF::Bucket;
use strict;
use Class::Accessor::Lite
    new => 1,
    rw => [ qw(
        client
        name
    ) ]
;

sub delete {
    my ($self, $recursive) = @_;
    $self->client->delete_bucket( $self->name, $recursive );
}

sub get_object {
    my ($self, $key, $opts) = @_;

    $self->client->get_object(
        join( "/", $self->name, $key ),
        $opts
    );
}

sub put_object {
    my ($self, $key, $content, $opts) = @_;

    $self->client->put_object(
        join( "/", $self->name, $key ),
        $content,
        $opts
    );
}

sub delete_object {
    my ($self, $key, $opts) = @_;

    $self->client->delete_object(
        join( "/", $self->name, $key ),
        $opts
    );
}

1;

__END__