% eval { die "this is an error"; }; % if ($@) { % $m->comp('/comps/error.comp', message=> $@); % }