package TestMasonApp::InterpExecFromScalarRef; use base qw(TestMasonApp::Base); use strict; use warnings; sub index { my $self = shift; $self->stash->{param} = "success"; $self->stash->{template} = \q{<%args> $param InterpExecFromScalarRef param : <% $param %> }; return $self->interp_exec; } 1;