The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%args>
$e
$comp
</%args>

<%init>
delete @ARGS{ 'e', 'comp' };

if ( $e && UNIVERSAL::isa( $e, 'Alzabo::Exception::RDBMSRules' ) )
{
    warn $e;

    $m->redirect( uri( path => $comp . Alzabo::GUI::Mason::Config::mason_extension(),
                       query => { errors => $e->error, %ARGS },
                     ),
                );
}
</%init>