1 2 3 4 5 6 7 8 9 10 11
% my $error = $_[0]; % $m->notes('error', $error); <& /elements/header.html, mt("Error") &> % while (@_) { <P><FONT SIZE="+1" COLOR="#ff0000"><% shift |h %></FONT> %} % $m->flush_buffer(); % $HTML::Mason::Commands::m->abort();