File Coverage

blib/lib/Tie/Redis/Scalar.pm

Criterion	Covered	Total	%
statement	0	8	0.0
branch			n/a
condition			n/a
subroutine	0	4	0.0
pod			n/a
total	0	12	0.0

package Tie::Redis::Scalar;
{
  $Tie::Redis::Scalar::VERSION = '0.26';
}

# 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__