File Coverage

blib/lib/Tie/Redis/Scalar.pm

Criterion	Covered	Total	%
statement	1	9	11.1
branch			n/a
condition			n/a
subroutine	1	5	20.0
pod			n/a
total	2	14	14.2

package Tie::Redis::Scalar;
BEGIN {
  $Tie::Redis::Scalar::VERSION = '0.22_1';
}

# Consider using overload instead of this maybe, could then implement things
# like ++ in terms of Redis commands.

sub TIESCALAR {
  my($class, %args) = @_;
  bless \%args, $class;
}

sub _cmd {
  my($self, $cmd, @args) = @_;
  return $self->{redis}->_cmd($cmd, $self->{key}, @args);
}

sub FETCH {
  my($self) = @_;
  $self->_cmd("get");
}

sub STORE {
  my($self, $value) = @_;
  $self->_cmd("set", $value);
}

1;


__END__