File Coverage

blib/lib/URI/s3.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package URI::s3;
2 2     2   1937 use 5.008001;
  2         6  
3 2     2   9 use strict;
  2         2  
  2         40  
4 2     2   9 use warnings;
  2         2  
  2         51  
5 2     2   1039 use version;
  2         4872  
  2         9  
6              
7 2     2   1154 use parent qw/URI::_server/;
  2         667  
  2         10  
8              
9             our $VERSION = version->declare('v0.01');
10              
11 1     1 0 751 sub bucket { shift->host }
12              
13             sub key {
14 1     1 0 579 my $self = shift;
15 1         6 (my $key = $self->path) =~ s!^/!!;
16 1         21 return $key;
17             }
18              
19             1;
20             __END__