I still haven't gotten this :)

[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';

around get => sub {
    my $orig   = shift;
    my $self   = shift;
    my $params = {@_};

    my $ctx = exists $params->{ctx} && ref $params->{ctx}
            ? $params->{ctx}
            : undef
            ;

    # FIXME - this makes absolutely no sense
    # dispatcher wants the object (through container->get_all_components)
    # but doesn't have the context. Builder *needs* the context!!
    # What to do???
    return $self->$orig(@_) unless $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