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 flatten {
  22   my ($self) = @_;
  23   my $set = $self->_set;
  24   map $set->{$_}, sort keys %$set;
  25 }
  26
  27 sub _spec_to_object {
  28   my ($self, $spec) = @_;
  29   if (blessed($spec) && $spec->isa($self->_set_of_class)) {
  30     $spec;
  31   } else {
  32     $self->_new_member($self->_spec_to_constructor_args($spec));
  33   }
  34 }
  35
  36 sub _new_member {
  37   my ($self, $args) = @_;
  38   $self->_set_of_class->new($args);
  39 }
  40
  41 sub _spec_to_constructor_args {
  42   my ($self, $spec) = @_;
  43   $spec;
  44 }
  45
  46 sub _spec_to_key {
  47   my ($self, $spec) = @_;
  48   my $key = $self->_set_over;
  49   die "key ${key} is required" unless $spec->{$key};
  50   $spec->{$key};
  51 }
  52
  53 1;