o::JWT::Google;
use utf8;
use Mojo::Base qw(Mojo::JWT);
use Mojo::File qw(path);
use Mojo::JSON qw(decode_json);
use Carp;
our $VERSION = '0.15';
has client_email => undef;
has expires_in => 3600;
class->SUPER::new(%options);
return $self if not defined $self->{from_json};
my $result = $self->from_json($self->{from_json});
return $self;
}
sub claims {
my ($self, $value) = @_;
if (d
m_json {
my ($self, $value) = @_;
croak 'You did not pass a filename to from_json' if not defined $value;
croak 'Cannot find file passed to from_json' if not -f $value;
my $json = decode_json(