The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
HOLLY / CGI-Application-Plugin-Mason-1.01 / t / lib / TestMasonApp / InterpPostExec.pm 
package TestMasonApp::InterpPostExec;

use base qw(TestMasonApp::Base);
use strict;
use warnings;

sub index {
    my $self = shift;
    $self->add_callback("interp_post_exec", sub {
                                                my($self, $bodyref) = @_;
                                                # success => post_exec_success
                                                ${$bodyref} =~ s/success/post_exec change/;
                                          });
    $self->stash->{param}    = "success";
    $self->stash->{template} = \*DATA;
    return $self->interp_exec;
}

1;

__DATA__
<%args>
$param
</%args>
<html>
<head>
<title>InterpPostExec</title>
</head>

<body>
param : <% $param %>
</body>
</html>