File Coverage

blib/lib/Algorithm/ConsistentHash/Ketama/Bucket.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 3 3 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Algorithm::ConsistentHash::Ketama::Bucket;
2 4     4   18 use strict;
  4         6  
  4         401  
3              
4             sub new {
5 9     9 1 271 my ($class, %args) = @_;
6 9         32 my $self = bless {%args}, $class;
7 9         29 return $self;
8             }
9              
10 9     9 1 2957 sub label { $_[0]->{label} }
11 9     9 1 4417 sub weight { $_[0]->{weight} }
12              
13             1;
14              
15             __END__