File Coverage

blib/lib/AproJo/User.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	4	4	100.0
pod	0	2	0.0
total	29	31	93.5

package AproJo::User;
use Mojo::Base 'Mojolicious::Controller';

use Data::Dumper;

sub login {
  my $self = shift;
  my $name = $self->param('username');
  my $pass = $self->param('password');
  my $from = $self->param('from');

  my $schema = $self->schema;

  my $user = $schema->resultset('User')->single({name => $name});

  if ($user and $user->password eq $pass) {

    $self->session->{id}       = $user->user_id;
    $self->session->{username} = $name;

  }
  else {
    $self->flash(onload_message => "Sorry try again");
  }

  #$self->redirect_to( $from );
  $self->redirect_to("/");
}

sub logout {
  my $self = shift;
  $self->session(expires => 1);
  $self->redirect_to($self->home_page);
}

1;