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

use strict;
use warnings;

package My::AttributesBaseClass;
use base qw( Catalyst::Controller );

sub fetch : Chained('/') PathPrefix CaptureArgs(1) {

}

sub view : PathPart Chained('fetch') Args(0) {

}

sub foo {    # no attributes

}

package TestApp::Controller::Attributes;
use base qw(My::AttributesBaseClass);

sub view {    # override attributes to "hide" url

}

sub foo : Local {

}

1;
Commit	Line	Data
683d672b	1	use strict;
	2	use warnings;
	3
	4	package My::AttributesBaseClass;
	5	use base qw( Catalyst::Controller );
	6
	7	sub fetch : Chained('/') PathPrefix CaptureArgs(1) {
	8
	9	}
	10
	11	sub view : PathPart Chained('fetch') Args(0) {
	12
	13	}
	14
	15	sub foo { # no attributes
	16
	17	}
	18
	19	package TestApp::Controller::Attributes;
	20	use base qw(My::AttributesBaseClass);
	21
	22	sub view { # override attributes to "hide" url
	23
	24	}
	25
	26	sub foo : Local {
	27
	28	}
	29
	30	1;