Select Code to Download

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

package Gimble::Page::Login::Validate; 
use base qw(Gimble::Page::Base);
...
    required    => [ qw(login_name password) ],
  } 
}

BEGIN {
  my $d = { 
...
  };
  sub dfy_profile { return $d }
}