1 package TestApp::Controller::Action::Inheritance;
4 use base 'TestApp::Controller::Action';
12 my ( $self, $c ) = @_;
13 $self->SUPER::begin($c);
16 sub default : Private {
17 my ( $self, $c ) = @_;
18 $c->forward('TestApp::View::Dump::Request');
22 my ( $self, $c ) = @_;
25 package TestApp::Controller::Action::Inheritance::A;
28 use base 'TestApp::Controller::Action';
31 my ( $self, $c ) = @_;
36 my ( $self, $c ) = @_;
37 $self->SUPER::begin($c);
40 sub default : Private {
41 my ( $self, $c ) = @_;
42 $c->forward('TestApp::View::Dump::Request');
46 my ( $self, $c ) = @_;
49 package TestApp::Controller::Action::Inheritance::A::B;
52 use base 'TestApp::Controller::Action';
55 my ( $self, $c ) = @_;
60 my ( $self, $c ) = @_;
61 $self->SUPER::begin($c);
64 sub default : Private {
65 my ( $self, $c ) = @_;
66 $c->forward('TestApp::View::Dump::Request');
70 my ( $self, $c ) = @_;
73 package TestApp::Controller::Action::Inheritance::B;
76 use base 'TestApp::Controller::Action';
78 # check configuration for an inherited action