package Catalyst::Service::WithContext;
use Moose::Role;
-# Why is the needed to be loaded?
-use Bread::Board::Types;
-
with 'Bread::Board::Service';
has accept_context_sub => (
around 'get' => sub {
my ( $orig, $self, %params ) = @_;
- my $context = delete $params{context};
+ my $accept_context_args = delete $params{accept_context_args};
my $instance = $self->$orig(%params);
my $ac_sub = $self->accept_context_sub;
if ( $instance->can($ac_sub) ) {
- return $instance->$ac_sub( @$context );
+ return $instance->$ac_sub( @$accept_context_args );
}
return $instance;
sub get_component {
my ( $self, $name, $args ) = @_;
- return $self->resolve( service => $name, parameters => { context => $args } );
+
+ return $self->resolve(
+ service => $name,
+ parameters => { accept_context_args => $args },
+ );
}
sub get_component_regexp {
}
1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Catalyst::SubContainer - Container for models, controllers and views
+
+=head1 METHODS
+
+=head2 get_component
+
+=head2 get_component_regexp
+
+=head1 AUTHORS
+
+Catalyst Contributors, see Catalyst.pm
+
+=head1 COPYRIGHT
+
+This library is free software. You can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut