1 package Catalyst::Component::Role::CaptureApp;
4 use namespace::clean -except => 'meta';
6 # Future - isa => 'ClassName|Catalyst' performance?
7 # required => 1 breaks tests..
8 has _application => (is => 'ro', weak_ref => 1);
9 sub _app { (shift)->_application(@_) }
11 override BUILDARGS => sub {
12 my ($self, $app) = @_;
15 $args->{_application} = $app;