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

use CatalystX::Declare;

controller_role TestApp::TestRole {

    method something_from_the_role { 23 }

    final action action_from_ctrl_role under base {
        $ctx->response->body($ctx->action->reverse);
    }

    after modifier_target (Object $ctx) {
        $ctx->response->body(join ' ', $ctx->response->body, 'modified');
    }

    around surrounded_target (Object $ctx) {
        $ctx->response->body('surrounded');
        $self->$orig($ctx);
    }
}
Commit	Line	Data
856ac9a7	1	use CatalystX::Declare;
856ac9a7	2
205323ac	3	controller_role TestApp::TestRole {
856ac9a7	4
	5	method something_from_the_role { 23 }
	6
	7	final action action_from_ctrl_role under base {
	8	$ctx->response->body($ctx->action->reverse);
	9	}
	10
	11	after modifier_target (Object $ctx) {
	12	$ctx->response->body(join ' ', $ctx->response->body, 'modified');
	13	}
	14
	15	around surrounded_target (Object $ctx) {
	16	$ctx->response->body('surrounded');
	17	$self->$orig($ctx);
	18	}
	19	}