Class::Autouse->autouse($response_page); 

##</code><code>##

package Gimble::Page::Login::Validate; 
use base qw(Gimble::Page::Base);

sub redo_page { 'Gimble::Page::Login::Redo' }
sub confirm_page { 'Gimble::Page::Login::Confirm' }
sub dfy_profile {
  +{ 
    msgs        => { format => '%s' }, 
    required    => [ qw(login_name password) ],
  } 
}

##</code><code>##

BEGIN {
  my $d = { 
    msgs        => { format => '%s' }, 
    required    => [ qw(login_name password) ],
  };
  sub dfy_profile { return $d }
}