File Coverage

blib/lib/Redis/LeaderBoard/Member.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	6	0.0
condition			n/a
subroutine	2	8	25.0
pod	6	6	100.0
total	14	42	33.3

package Redis::LeaderBoard::Member;
use Mouse;

has leader_board => (
    is       => 'ro',
    isa      => 'Redis::LeaderBoard',
    required => 1,
);

has member => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

no Mouse;

sub score {
    my ($self, $score) = @_;

    return $self->leader_board->get_score($self->member) unless $score;

    $self->leader_board->set_score($self->member, $score);
    $score;
}

sub incr {
    my ($self, $score) = @_;
    $score = defined $score ? $score : 1;

    $self->leader_board->incr_score($self->member, $score);
}

sub decr {
    my ($self, $score) = @_;
    $score = defined $score ? $score : 1;

    $self->leader_board->decr_score($self->member, $score);
}

sub rank_with_score {
    my $self = shift;
    $self->leader_board->get_rank_with_score($self->member);
}

sub rank {
    my $self = shift;
    $self->leader_board->get_rank($self->member);
}

sub sorted_order {
    my $self = shift;

    $self->leader_board->sorted_order($self->member);
}

1;
__END__