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   1347 use 5.008001;
  2         6  
3 2     2   11 use strict;
  2         4  
  2         41  
4 2     2   9 use warnings;
  2         4  
  2         46  
5 2     2   847 use version;
  2         3670  
  2         11  
6              
7 2     2   1034 use parent qw/URI::_server/;
  2         547  
  2         11  
8              
9             our $VERSION = version->declare('v0.2');
10              
11 1     1 0 819 sub bucket { shift->host }
12              
13             sub key {
14 1     1 0 744 my $self = shift;
15 1         8 (my $key = $self->path) =~ s!^/!!;
16 1         23 return $key;
17             }
18              
19             1;
20             __END__