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

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

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);
}

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 auto : Private {
    my ( $self, $c ) = @_;
    return 1;
}

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 auto : Private {
    my ( $self, $c ) = @_;
    return 1;
}

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
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