t/lib/TestApp/Controller/Action/Path.pm

   1 package TestApp::Controller::Action::Path;
   2
   3 use strict;
   4 use base 'TestApp::Controller::Action';
   5
   6 __PACKAGE__->config(
   7     actions => {
   8       'one' => { 'Path' => [ 'a path with spaces' ] },
   9       'two' => { 'Path' => "åäö" },
  10       'six' => { 'Local' => undef },
  11     },
  12 );
  13
  14 sub one : Action Path("this_will_be_overriden") {
  15     my ( $self, $c ) = @_;
  16     $c->forward('TestApp::View::Dump::Request');
  17 }
  18
  19 sub two : Action {
  20     my ( $self, $c ) = @_;
  21     $c->forward('TestApp::View::Dump::Request');
  22 }
  23
  24 sub three :Path {
  25     my ( $self, $c ) = @_;
  26     $c->forward('TestApp::View::Dump::Request');
  27 }
  28
  29 sub four : Path( 'spaces_near_parens_singleq' ) {
  30     my ( $self, $c ) = @_;
  31     $c->forward('TestApp::View::Dump::Request');
  32 }
  33
  34 sub five : Path( "spaces_near_parens_doubleq" ) {
  35     my ( $self, $c ) = @_;
  36     $c->forward('TestApp::View::Dump::Request');
  37 }
  38
  39 sub six {
  40     my ( $self, $c ) = @_;
  41     $c->forward('TestApp::View::Dump::Request');
  42 }
  43
  44 1;