X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=3d50a73f454f052b7b9f031a15d7557298bbf9e0;hb=1b9bb64102dba58a73339289453e2c51acc097d9;hp=12f00a31c343c8c879999541d2a2e3014c3852b4;hpb=bd7ed1deb4f291b5e5629a0dec5209240d8abb0f;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index 12f00a3..3d50a73 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -2,8 +2,8 @@ package TestApp; use strict; use Catalyst qw/ Test::MangleDollarUnderScore - Test::Errors - Test::Headers + Test::Errors + Test::Headers Test::Plugin Test::Inline +TestApp::Plugin::FullyQualified @@ -14,7 +14,7 @@ use Catalyst::Utils; use Class::Load 'try_load_class'; use Moose; -use namespace::autoclean; +use namespace::clean -except => [ 'meta' ]; # ----------- # t/aggregate/unit_core_ctx_attr.t pukes until lazy is true @@ -42,10 +42,10 @@ has 'my_greeting_obj_lazy' => ( our $VERSION = '0.01'; -TestApp->config( - name => 'TestApp', - root => '/some/dir', - use_request_uri_for_path => 1, +TestApp->config( + name => 'TestApp', + root => '/some/dir', + use_request_uri_for_path => 1, 'Controller::Action::Action' => { action_args => { action_action_nine => { another_extra_arg => 13 } @@ -115,9 +115,9 @@ sub execute { # useful info if something crashes during a test sub finalize_error { my $c = shift; - + $c->next::method(@_); - + $c->res->status(500); $c->res->body( 'FATAL ERROR: ' . join( ', ', @{ $c->error } ) ); } @@ -142,7 +142,7 @@ sub finalize_headers { return $c->maybe::next::method(@_); } -# Make sure we can load Inline plugins. +# Make sure we can load Inline plugins. package Catalyst::Plugin::Test::Inline; use Moose;