[catagits/CatalystX-Declare.git] / t / lib / TestApp / Controller / SignatureMatching.pm

use CatalystX::Declare;

controller TestApp::Controller::SignatureMatching {

    action base as 'sigmatch' under '/';

    under base {

        final action int (Int $x) 
            as 'test' { $ctx->response->body( $ctx->action->reverse ) }

        final action str (Str $x where { /^[a-z]+$/ }) 
            as 'test' { $ctx->response->body( $ctx->action->reverse ) }

        final action rest (@) 
            as '' { $ctx->response->body( $ctx->action->reverse ) }
    }
}
Commit	Line	Data
ed4a2203	1	use CatalystX::Declare;
	2
	3	controller TestApp::Controller::SignatureMatching {
	4
	5	action base as 'sigmatch' under '/';
	6
	7	under base {
	8
	9	final action int (Int $x)
	10	as 'test' { $ctx->response->body( $ctx->action->reverse ) }
	11
	12	final action str (Str $x where { /^[a-z]+$/ })
	13	as 'test' { $ctx->response->body( $ctx->action->reverse ) }
	14
	15	final action rest (@)
	16	as '' { $ctx->response->body( $ctx->action->reverse ) }
	17	}
	18	}