#constructor
sub new
{
    my $class = shift;
    my %self = map {$_ => undef} qw/user_id login_valid error_type error_string/;
    bless \%self, $class;
}