1 package Catalyst::IOC::LifeCycle::Request;
3 use namespace::autoclean;
5 with 'Bread::Board::LifeCycle';
13 my $ctx = exists $params->{ctx} && ref $params->{ctx}
17 return $self->$orig(@_) unless $ctx;
19 my $stash_key = "__Catalyst_IOC_LifeCycle_Request_" . $self->name;
20 return $ctx->stash->{$stash_key} ||= $self->$orig(@_);
31 Catalyst::IOC::LifeCycle::Request - Components that last for one request
41 Catalyst Contributors, see Catalyst.pm
45 This library is free software. You can redistribute it and/or modify it under
46 the same terms as Perl itself.