# user overrides the container (which is what we want), the sub-container they
# will use is precisely $type, not 'component'. So for now, I'm returning both
# services, to decide later what to do.
+# TODO
+# add pod, remove code repetition
sub get_all_component_services {
my $self = shift;
return lock_hash %components;
}
+# TODO
+# add pod, remove code repetition
sub get_all_singleton_lifecycle_components {
my $self = shift;
return lock_hash %components;
}
+# TODO
+# remove code repetition
sub get_all_components {
my ($self, $class) = @_;
my %components;
- # FIXME - if we're getting from these containers, we need to either:
- # - pass 'ctx' and 'accept_context_args' OR
- # - make these params optional
- # big problem when setting up the dispatcher - this method is called
- # as $container->get_all_components('MyApp'). What to do with Request
- # life cycles?
foreach my $type (qw/model view controller /) {
my $container = $self->get_sub_container($type);