1 package Catalyst::IOC::LifeCycle::Request;
3 use namespace::autoclean;
4 with 'Bread::Board::LifeCycle';
11 my $ctx = exists $params->{ctx} && ref $params->{ctx}
16 # FIXME - this makes absolutely no sense
17 # dispatcher wants the object (through container->get_all_components)
18 # but doesn't have the context. Builder *needs* the context!!
20 return $self->$orig(@_) unless $ctx;
22 my $stash_key = "__Catalyst_IOC_LifeCycle_Request_" . $self->name;
23 return $ctx->stash->{$stash_key} ||= $self->$orig(@_);
34 Catalyst::IOC::LifeCycle::Request - Components that last for one request
44 Catalyst Contributors, see Catalyst.pm
48 This library is free software. You can redistribute it and/or modify it under
49 the same terms as Perl itself.