use warnings;
use NEXT;
-use base qw/Catalyst::Base/;
-
sub prepare {
my $class = shift;
# Note: This use of NEXT is deliberately left here (without a use NEXT)
use warnings;
use MRO::Compat;
-use base qw/Catalyst::Base Class::Data::Inheritable/;
+use base qw/Catalyst::Controller Class::Data::Inheritable/;
__PACKAGE__->mk_classdata('ran_setup');
use strict;
-use base qw/Catalyst::Base Class::Data::Inheritable/;
+use base qw/Class::Data::Inheritable/;
1;
package TestApp::Controller::Args;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub args :Local {
my ( $self, $c ) = @_;
package TestApp::Controller::Dump;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub default : Action Private {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Request::URI;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub default : Private {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Request::Uploads;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub slurp : Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Cookies;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one : Local {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Errors;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one : Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Headers;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one : Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Large;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one : Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Print;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one :Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Redirect;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub one : Relative {
my ( $self, $c ) = @_;
package TestApp::Controller::Engine::Response::Status;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub begin : Private {
my ( $self, $c ) = @_;
package TestApp::Controller::Index;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub index : Private {
my ( $self, $c ) = @_;
package TestApp::Controller::Priorities;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
#
# Regex vs. Local
package TestApp::Controller::Priorities::loc_vs_index;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub index :Private { $_[1]->res->body( 'index' ) }
package TestApp::Controller::Priorities::locre_vs_index;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub index :Private { $_[1]->res->body( 'index' ) }
package TestApp::Controller::Priorities::path_vs_index;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub index :Private { $_[1]->res->body( 'index' ) }
package TestApp::Controller::Priorities::re_vs_index;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
sub index :Private { $_[1]->res->body( 'index' ) }
package TestAppOnDemand::Controller::Body;
use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
use Data::Dump ();
$c->res->body( join ( '|', map { length $_ } @chunks ) );
}
-1;
\ No newline at end of file
+1;