[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Inheritance.pm

package TestApp::Controller::Action::Inheritance;

use strict;
use base 'TestApp::Controller::Action';

sub begin : Private {
    my ( $self, $c ) = @_;
    $self->SUPER::begin($c);
}

sub default : Private {
    my ( $self, $c ) = @_;
    $c->forward('TestApp::View::Dump::Request');
}

sub end : Private {
    my ( $self, $c ) = @_;
}

package TestApp::Controller::Action::Inheritance::A;

use strict;
use base 'TestApp::Controller::Action';

sub begin : Private {
    my ( $self, $c ) = @_;
    $self->SUPER::begin($c);
}

sub default : Private {
    my ( $self, $c ) = @_;
    $c->forward('TestApp::View::Dump::Request');
}

sub end : Private {
    my ( $self, $c ) = @_;
}

package TestApp::Controller::Action::Inheritance::A::B;

use strict;
use base 'TestApp::Controller::Action';

sub begin : Private {
    my ( $self, $c ) = @_;
    $self->SUPER::begin($c);
}

sub default : Private {
    my ( $self, $c ) = @_;
    $c->forward('TestApp::View::Dump::Request');
}

sub end : Private {
    my ( $self, $c ) = @_;
}

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