t/lib/TestApp/Controller/Attributes.pm

   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;