File Coverage

blib/lib/Shell/Amazon/S3/Utils.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 14 57.1


line stmt bran cond sub pod time code
1             package Shell::Amazon::S3::Utils;
2 1     1   4 use strict;
  1         1  
  1         22  
3 1     1   3 use warnings;
  1         1  
  1         74  
4              
5             sub classsuffix {
6 0     0 0   my ( $class, $class_name ) = @_;
7 0           my @parts = split '::', lc $class_name;
8 0           my $suffix = pop @parts;
9 0           return $suffix;
10             }
11              
12             1;