lib/App/Clifton/Set.pm

   1 package App::Clifton::Set;
   2
   3 use Scalar::Util qw(blessed);
   4 use Moo::Role;
   5
   6 requires '_set_of_class';
   7 requires '_set_over';
   8
   9 has _set => (is => 'ro', default => sub { {} });
  10
  11 sub add {
  12   my ($self, $spec) = @_;
  13   $self->_set->{$self->_spec_to_key($spec)} = $self->_spec_to_object($spec);
  14 }
  15
  16 sub get {
  17   my ($self, $spec) = @_;
  18   $self->_set->{$self->_spec_to_key($spec)};
  19 }
  20
  21 sub _spec_to_object {
  22   my ($self, $spec) = @_;
  23   if (blessed($spec) && $spec->isa($self->_set_of_class)) {
  24     $spec;
  25   } else {
  26     $self->_new_member($self->_spec_to_constructor_args($spec));
  27   }
  28 }
  29
  30 sub _new_member {
  31   my ($self, $args) = @_;
  32   $self->_set_of_class->new($args);
  33 }
  34
  35 sub _spec_to_constructor_args {
  36   my ($self, $spec) = @_;
  37   $spec;
  38 }
  39
  40 sub _spec_to_key {
  41   my ($self, $spec) = @_;
  42   my $key = $self->_set_over;
  43   die "key ${key} is required" unless $spec->{$key};
  44   $spec->{$key};
  45 }
  46
  47 1;