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

use MooseX::Declare;

role TestApp::ViewRole::TestRole {

    around render (Object $ctx) {

        if (my $tag = $ctx->stash->{role_tag}) {
            return join ' ' => $self->$orig($ctx), $tag;
        }

        return $self->$orig($ctx);
    }
}
Commit	Line	Data
8e5d9092	1	use MooseX::Declare;
	2
	3	role TestApp::ViewRole::TestRole {
	4
	5	around render (Object $ctx) {
	6
	7	if (my $tag = $ctx->stash->{role_tag}) {
	8	return join ' ' => $self->$orig($ctx), $tag;
	9	}
	10
	11	return $self->$orig($ctx);
	12	}
	13	}