[catagits/Catalyst-Runtime.git] / lib / Catalyst / Component / Role / CaptureApp.pm

package Catalyst::Component::Role::CaptureApp;

use Moose::Role;
use namespace::clean -except => 'meta';

# Future - isa => 'ClassName|Catalyst' performance?
#           required => 1 breaks tests..
has _application => (is => 'ro');
sub _app { (shift)->_application(@_) }

override BUILDARGS => sub {
    my ($self, $app) = @_;

    my $args = super();
    $args->{_application} = $app;

    return $args;
};

1;
Commit	Line	Data
9cc543bc	1	package Catalyst::Component::Role::CaptureApp;
	2
	3	use Moose::Role;
	4	use namespace::clean -except => 'meta';
	5
	6	# Future - isa => 'ClassName\|Catalyst' performance?
	7	# required => 1 breaks tests..
	8	has _application => (is => 'ro');
	9	sub _app { (shift)->_application(@_) }
	10
	11	override BUILDARGS => sub {
	12	my ($self, $app) = @_;
	13
	14	my $args = super();
	15	$args->{_application} = $app;
	16
	17	return $args;
	18	};
	19
	20	1;