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