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

use CatalystX::Declare;

controller_role TestApp::ControllerRole::Parameterized (Str :$message) {

    method get_message { $message }

    final action greet under base {
        no warnings 'uninitialized'; # remove if TODO is fixed
        $ctx->response->body( join ':', $self->get_message, $message );
    }
}
Commit	Line	Data
c2a8165b	1	use CatalystX::Declare;
	2
	3	controller_role TestApp::ControllerRole::Parameterized (Str :$message) {
	4
	5	method get_message { $message }
	6
	7	final action greet under base {
	8	no warnings 'uninitialized'; # remove if TODO is fixed
	9	$ctx->response->body( join ':', $self->get_message, $message );
	10	}
	11	}