my $schema = My::Schema->connect("dbi:Pg:dbname=mytestdb;host=localhost;port=5432;","test","test");

post '/register' => sub {


    my $username = params->{username};
    my $fullname = params->{fullname};
    my $password = params->{password};
    warn "The pass is |$password|n";


        my $saved_pass = &crypt_password($password);



    $schema->resultset('User')->create({
        username => $username,
        fullname => $fullname,
        password => $saved_pass,

    });

    redirect '/';

};

post '/login' => sub {
    my $username  = params->{username};
    my $password  = params->{password};



     my $user = $schema->resultset('User')->search({ username => $username })->first;




        my ($success, $realm) = authenticate_user(
            $username, $password
        );


        if ($success) {
            session logged_in_user => $success;
            session logged_in_user_realm => $realm;
            session user => $user;



        } else {
             authentication failed
        }



};