Yet Another CPAN Grep

Daje-Plugin-Login ( J/JA/JANESKIL/Tools/Daje-Plugin-Login-0.02.tar.gz, JANESKIL, 2025; MetaCPAN )

Daje-Plugin-Login/lib/Daje/Controller/Login.pm ( view source; MetaCPAN )


use Data::Dumper;
use Mojo::JSON qw{from_json};

our $VERSION = "0.01";

sub login_user($self) {

    say "Login user";
    $self->render_later;

    my $data = from_json($self->req->body);
    $self

);
        if($result) {
            $self->render(json => {'result' => "success", data => $result});
        } else {
            $self->render(json => {'result' => "failed", data => $result});

   }
    })->catch(sub ($err) {
        say "Error " . $err;
        $self->render(json => {'result' => $err});
    })->wait;
}

1;
__END__





#################### pod generated by Pod::Autopod - ke

Daje-Plugin-Login ( J/JA/JANESKIL/Tools/Daje-Plugin-Login-0.02.tar.gz, JANESKIL, 2025; MetaCPAN )

Daje-Plugin-Login/lib/Daje/Helper/Login.pm ( view source; MetaCPAN )

40;

# NAME
# ====
#
# Daje::Helper::Login - Its a
#
#
# DESCRIPTION
# ===========
#
# my $json = encode_json($login);
#
#
# REQUIRES
# ========
#
# Daje::Database::Model::Login
#
# Daje::Tools::JWT
#

    $userid, $password
    );

    my $jwt;
    my $result;

    if($login) {
        #my $json = encode_json($login);
        $jwt = await Daje::Tools::JWT->new()->encode_jwt_p(
            $login

##################

=head1 NAME


Daje::Helper::Login - Its a




=head1 DESCRIPTION


my $json = encode_json($login);




=head1 REQUIRES


Daje::Database::Model::Login

Daje::Tools::JWT

v5.40

Mojo