File Coverage

blib/lib/Net/STF/Object.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	28	42.8

package Net::STF::Object;
use strict;
use URI;
use Class::Accessor::Lite
    new => 1,
    rw => [ qw(
        url
        content
    ) ]
;

sub bucket_name {
    my $self = shift;
    if (URI->new($self->url)->path =~ m{^/([^/]+)}) {
        return $1;
    }
    return ();
}

sub key {
    my $self = shift;
    if (URI->new($self->url)->path =~ m{^/[^/]+/(.*)$}) {
        return $1;
    }
    return ();
}

1;

__END__