Commit | Line | Data |
dd4e6fd2 |
1 | package TestApp::Controller::Action::Inheritance; |
2 | |
3 | use strict; |
4 | use base 'TestApp::Controller::Action'; |
5 | |
7088334d |
6 | sub auto : Private { |
7 | my ( $self, $c ) = @_; |
8 | return 1; |
9 | } |
10 | |
dd4e6fd2 |
11 | sub begin : Private { |
12 | my ( $self, $c ) = @_; |
13 | $self->SUPER::begin($c); |
14 | } |
15 | |
16 | sub default : Private { |
17 | my ( $self, $c ) = @_; |
18 | $c->forward('TestApp::View::Dump::Request'); |
19 | } |
20 | |
21 | sub end : Private { |
22 | my ( $self, $c ) = @_; |
23 | } |
24 | |
25 | package TestApp::Controller::Action::Inheritance::A; |
26 | |
27 | use strict; |
28 | use base 'TestApp::Controller::Action'; |
29 | |
7088334d |
30 | sub auto : Private { |
31 | my ( $self, $c ) = @_; |
32 | return 1; |
33 | } |
34 | |
dd4e6fd2 |
35 | sub begin : Private { |
36 | my ( $self, $c ) = @_; |
37 | $self->SUPER::begin($c); |
38 | } |
39 | |
40 | sub default : Private { |
41 | my ( $self, $c ) = @_; |
42 | $c->forward('TestApp::View::Dump::Request'); |
43 | } |
44 | |
45 | sub end : Private { |
46 | my ( $self, $c ) = @_; |
47 | } |
48 | |
49 | package TestApp::Controller::Action::Inheritance::A::B; |
50 | |
51 | use strict; |
52 | use base 'TestApp::Controller::Action'; |
53 | |
7088334d |
54 | sub auto : Private { |
55 | my ( $self, $c ) = @_; |
56 | return 1; |
57 | } |
58 | |
dd4e6fd2 |
59 | sub begin : Private { |
60 | my ( $self, $c ) = @_; |
61 | $self->SUPER::begin($c); |
62 | } |
63 | |
64 | sub default : Private { |
65 | my ( $self, $c ) = @_; |
66 | $c->forward('TestApp::View::Dump::Request'); |
67 | } |
68 | |
69 | sub end : Private { |
70 | my ( $self, $c ) = @_; |
71 | } |
72 | |
73 | 1; |
74 | |