X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FInheritance.pm;h=6eae935f63526298c0d7f8b49062e8f922f1df45;hb=7088334d6d29d0704ef56b5458c4be41e21f32c5;hp=7a27561a3908ccfeeac2dfc37817bfc5dab7069e;hpb=6b8dfa42e277c0640099b96e2da00e25a6757488;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Inheritance.pm b/t/lib/TestApp/Controller/Action/Inheritance.pm index 7a27561..6eae935 100644 --- a/t/lib/TestApp/Controller/Action/Inheritance.pm +++ b/t/lib/TestApp/Controller/Action/Inheritance.pm @@ -3,6 +3,11 @@ package TestApp::Controller::Action::Inheritance; use strict; use base 'TestApp::Controller::Action'; +sub auto : Private { + my ( $self, $c ) = @_; + return 1; +} + sub begin : Private { my ( $self, $c ) = @_; $self->SUPER::begin($c); @@ -22,6 +27,11 @@ package TestApp::Controller::Action::Inheritance::A; use strict; use base 'TestApp::Controller::Action'; +sub auto : Private { + my ( $self, $c ) = @_; + return 1; +} + sub begin : Private { my ( $self, $c ) = @_; $self->SUPER::begin($c); @@ -41,6 +51,11 @@ package TestApp::Controller::Action::Inheritance::A::B; use strict; use base 'TestApp::Controller::Action'; +sub auto : Private { + my ( $self, $c ) = @_; + return 1; +} + sub begin : Private { my ( $self, $c ) = @_; $self->SUPER::begin($c);