view release on metacpan or  search on metacpan

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

package PDK::Utils::Cache;

use utf8;
use v5.30;
use Moose;
use namespace::autoclean;

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

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

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

  confess("错误：至少需要一个键和一个值") if @args < 2;