sub mode_001 {
    my ( $self, $errs ) = @_;

    # ...
    $template->param( $errs ) if $errs;
    $template->output;	
}

sub mode_002 {
    my ( $self, $results, $err_page );

    $self = shift;
    ( $results, $err_page ) = $self->check_rm( 'mode_001',
                                '_mode001_profile' );
    return $err_page if $err_page;

    # If you've gotten this far, all the data is ok per
    # your FormValidator object

}

sub _mode001_profile {
    return {
        'required' => [ qw( email password1 password2 ) ],
        'constraints' => {
                'email' => sub { return Email::Valid->address( shift ); }
            },
        'msgs' => {
            'any_errors' => 'some_errors',
            'prefix' => 'err_',
            },
    };
}