Remove use of Catalyst::Base from the tests
Tomas Doran [Sun, 12 Apr 2009 18:08:06 +0000 (18:08 +0000)]
21 files changed:
t/lib/Catalyst/Plugin/Test/Deprecated.pm
t/lib/Catalyst/Plugin/Test/Plugin.pm
t/lib/TestApp.pm
t/lib/TestApp/Controller/Args.pm
t/lib/TestApp/Controller/Dump.pm
t/lib/TestApp/Controller/Engine/Request/URI.pm
t/lib/TestApp/Controller/Engine/Request/Uploads.pm
t/lib/TestApp/Controller/Engine/Response/Cookies.pm
t/lib/TestApp/Controller/Engine/Response/Errors.pm
t/lib/TestApp/Controller/Engine/Response/Headers.pm
t/lib/TestApp/Controller/Engine/Response/Large.pm
t/lib/TestApp/Controller/Engine/Response/Print.pm
t/lib/TestApp/Controller/Engine/Response/Redirect.pm
t/lib/TestApp/Controller/Engine/Response/Status.pm
t/lib/TestApp/Controller/Index.pm
t/lib/TestApp/Controller/Priorities.pm
t/lib/TestApp/Controller/Priorities/loc_vs_index.pm
t/lib/TestApp/Controller/Priorities/locre_vs_index.pm
t/lib/TestApp/Controller/Priorities/path_vs_index.pm
t/lib/TestApp/Controller/Priorities/re_vs_index.pm
t/lib/TestAppOnDemand/Controller/Body.pm

index a9552da..688ad21 100644 (file)
@@ -4,8 +4,6 @@ use strict;
 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)
index 09ee8f7..b620c5e 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 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');
 
index e0a6385..f5a7c56 100644 (file)
@@ -97,6 +97,6 @@ package Catalyst::Plugin::Test::Inline;
 
 use strict;
 
-use base qw/Catalyst::Base Class::Data::Inheritable/;
+use base qw/Class::Data::Inheritable/;
 
 1;
index 6ec7539..8f16996 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Args;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub args :Local  {
     my ( $self, $c ) = @_;
index 5ea3ba0..8c78fc8 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Dump;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub default : Action Private {
     my ( $self, $c ) = @_;
index 44a2185..2acfd67 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Request::URI;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub default : Private {
     my ( $self, $c ) = @_;
index fbd4acf..f51df9d 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Request::Uploads;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub slurp : Relative {
     my ( $self, $c ) = @_;
index 8531fe7..320c2e1 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Cookies;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one : Local {
     my ( $self, $c ) = @_;
index 7e60a7f..562997e 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Errors;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one : Relative {
     my ( $self, $c ) = @_;
index a93fe31..470eeaf 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Headers;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one : Relative {
     my ( $self, $c ) = @_;
index bbf6430..75d4ef3 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Large;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one : Relative {
     my ( $self, $c ) = @_;
index 1d1f52d..8d986f8 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Print;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one :Relative {
     my ( $self, $c ) = @_;
index f7d7ec0..d16d1ec 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Redirect;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one : Relative {
     my ( $self, $c ) = @_;
index 66fa243..44b5f26 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Status;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub begin : Private {
     my ( $self, $c ) = @_;
index 9b655d2..cc40f99 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Index;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub index : Private {
     my ( $self, $c ) = @_;
index ec98d5b..751270b 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Priorities;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 #
 #   Regex vs. Local
index 86a2ab1..b8edfca 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Priorities::loc_vs_index;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub index :Private { $_[1]->res->body( 'index' ) }
 
index db4cb0d..9f5f4c2 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Priorities::locre_vs_index;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub index :Private { $_[1]->res->body( 'index' ) }
 
index 3a58c9e..f1c47f9 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Priorities::path_vs_index;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub index :Private { $_[1]->res->body( 'index' ) }
 
index 67dfd1d..da56b89 100644 (file)
@@ -1,7 +1,7 @@
 package TestApp::Controller::Priorities::re_vs_index;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub index :Private { $_[1]->res->body( 'index' ) }
 
index aca4a5e..6e9eeae 100644 (file)
@@ -1,7 +1,7 @@
 package TestAppOnDemand::Controller::Body;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 use Data::Dump ();
 
@@ -26,4 +26,4 @@ sub read : Local {
     $c->res->body( join ( '|', map { length $_ } @chunks ) );
 }
 
-1;
\ No newline at end of file
+1;