view release on metacpan or  search on metacpan

lib/WWW/Suffit/AuthDB.pm  view on Meta::CPAN

            # . . .
        ) or die $authdb->error;

This method adds new user or doing update data of existing user

=head2 user_setkeys

    $authdb->user_setkeys(
            username => "admin",
            public_key => $public_key,
            private_key => $private_key,
        ) or die $authdb->error;

This method sets keys for user

=head2 user_tokens

    my @tokens = $authdb->user_tokens( $username );

This method returns all tokens of specified user

lib/WWW/Suffit/AuthDB/User.pm  view on Meta::CPAN

has email       => '';
has error       => '';
has expires     => 0;
has flags       => 0;
has groups      => sub { return [] };
has id          => 0;
has name        => '';
has not_after   => undef;
has not_before  => undef;
has password    => '';
has private_key => '';
has public_key  => '';
has role        => 'Regular user';
has username    => undef;
has is_cached   => 0;
has is_authorized => 0;

sub is_valid {
    my $self = shift;

    unless ($self->id) {