{
my @expected = qw[
TestApp::Controller::Action::Inheritance->begin
+ TestApp::Controller::Action::Inheritance->auto
TestApp::Controller::Action::Inheritance->default
TestApp::View::Dump::Request->process
TestApp::Controller::Action::Inheritance->end
{
my @expected = qw[
TestApp::Controller::Action::Inheritance::A->begin
+ TestApp::Controller::Action::Inheritance->auto
+ TestApp::Controller::Action::Inheritance::A->auto
TestApp::Controller::Action::Inheritance::A->default
TestApp::View::Dump::Request->process
TestApp::Controller::Action::Inheritance::A->end
{
my @expected = qw[
TestApp::Controller::Action::Inheritance::A::B->begin
+ TestApp::Controller::Action::Inheritance->auto
+ TestApp::Controller::Action::Inheritance::A->auto
+ TestApp::Controller::Action::Inheritance::A::B->auto
TestApp::Controller::Action::Inheritance::A::B->default
TestApp::View::Dump::Request->process
TestApp::Controller::Action::Inheritance::A::B->end
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);
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);
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);