1 package Catalyst::IOC::Service::WithAcceptContext;
4 has accept_context_sub => (
7 default => 'ACCEPT_CONTEXT',
14 my $accept_context_args = $self->param('accept_context_args');
15 my $ac_sub = $self->accept_context_sub;
17 my $instance = $self->$orig(@_);
19 if ( $accept_context_args && $instance->can($ac_sub) ) {
20 return $instance->$ac_sub( @$accept_context_args );
35 Catalyst::IOC::Service::WithAcceptContext
41 =head2 accept_context_sub
45 Catalyst Contributors, see Catalyst.pm
49 This library is free software. You can redistribute it and/or modify it under
50 the same terms as Perl itself.