view release on metacpan or  search on metacpan

lib/Firewall/Utils/Cache.pm  view on Meta::CPAN

package Firewall::Utils::Cache;

#------------------------------------------------------------------------------
# 加载扩展模块
#------------------------------------------------------------------------------
use Moose;
use namespace::autoclean;

has cache => ( is => 'ro', isa => 'HashRef[Ref]', default => sub { {} }, );

sub get {
  my $self = shift;
  return $self->locate(@_);
}

sub set {
  my $self = shift;
  confess "ERROR: must have at least one key and one value" if @_ < 2;
  my $value   = pop;