File Coverage

blib/lib/WWW/Picnic/Result/Login.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	2	2	100.0
total	15	19	78.9

package WWW::Picnic::Result::Login;
our $VERSION = '0.100';
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Picnic login result with 2FA status

use Moo;

extends 'WWW::Picnic::Result';


has auth_key => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('auth_key') },
);


has user_id => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('user_id') },
);


has second_factor_authentication_required => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('second_factor_authentication_required') || 0 },
);


has show_second_factor_authentication_intro => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('show_second_factor_authentication_intro') || 0 },
);


sub requires_2fa {
  my ( $self ) = @_;
  return $self->second_factor_authentication_required ? 1 : 0;
}


sub is_authenticated {
  my ( $self ) = @_;
  return $self->auth_key && !$self->requires_2fa ? 1 : 0;
}


1;

__END__