use Catalyst::Exception;
use Catalyst::Utils;
+with 'Catalyst::Component::Role::CaptureApp';
+
has path_prefix =>
(
is => 'rw',
init_arg => undef,
);
-# 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;
-};
-
sub BUILD {
my ($self, $args) = @_;
my $action = delete $args->{action} || {};