Commit | Line | Data |
73ebcfa8 |
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; |