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 3     3   13 use strict;
  3         4  
  3         345  
3              
4             sub new {
5 9     9 1 247 my ($class, %args) = @_;
6 9         30 my $self = bless {%args}, $class;
7 9         30 return $self;
8             }
9              
10 9     9 1 2333 sub label { $_[0]->{label} }
11 9     9 1 3167 sub weight { $_[0]->{weight} }
12              
13             1;
14              
15             __END__