rewrote Request lifecycle

[catagits/Catalyst-Runtime.git] / lib / Catalyst / IOC / LifeCycle / Request.pm

package Catalyst::IOC::LifeCycle::Request;
use Moose::Role;
use namespace::autoclean;
with 'Bread::Board::LifeCycle::Singleton';

around get => sub {
    my $orig = shift;
    my $self = shift;

    my $ctx       = $self->param('ctx');
    my $stash_key = "__Catalyst_IOC_LifeCycle_Request_" . $self->name;
    return $ctx->stash->{$stash_key} ||= $self->$orig(@_);
};

1;

__END__

=pod

=head1 NAME

Catalyst::IOC::LifeCycle::Request - Components that last for one request

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 METHODS

=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