1 package TestApp::Controller::Action::Inheritance;
4 use base 'TestApp::Controller::Action';
8 $self->SUPER::begin($c);
11 sub default : Private {
12 my ( $self, $c ) = @_;
13 $c->forward('TestApp::View::Dump::Request');
17 my ( $self, $c ) = @_;
20 package TestApp::Controller::Action::Inheritance::A;
23 use base 'TestApp::Controller::Action';
26 my ( $self, $c ) = @_;
27 $self->SUPER::begin($c);
30 sub default : Private {
31 my ( $self, $c ) = @_;
32 $c->forward('TestApp::View::Dump::Request');
36 my ( $self, $c ) = @_;
39 package TestApp::Controller::Action::Inheritance::A::B;
42 use base 'TestApp::Controller::Action';
45 my ( $self, $c ) = @_;
46 $self->SUPER::begin($c);
49 sub default : Private {
50 my ( $self, $c ) = @_;
51 $c->forward('TestApp::View::Dump::Request');
55 my ( $self, $c ) = @_;