1 package App::Clifton::Set;
3 use Scalar::Util qw(blessed);
6 requires '_set_of_class';
9 has _set => (is => 'ro', default => sub { {} });
12 my ($self, $spec) = @_;
13 $self->_set->{$self->_spec_to_key($spec)} = $self->_spec_to_object($spec);
17 my ($self, $spec) = @_;
18 $self->_set->{$self->_spec_to_key($spec)};
22 my ($self, $spec) = @_;
23 if (blessed($spec) && $spec->isa($self->_set_of_class)) {
26 $self->_new_member($self->_spec_to_constructor_args($spec));
31 my ($self, $args) = @_;
32 $self->_set_of_class->new($args);
35 sub _spec_to_constructor_args {
36 my ($self, $spec) = @_;
41 my ($self, $spec) = @_;
42 my $key = $self->_set_over;
43 die "key ${key} is required" unless $spec->{$key};