The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

table

AccessTokens are stored in the table oauth_access_tokens.

create_from_request_token

This creates a new access token (as the superuser) and populates its values from the given request token.

is_valid

This neatly encapsulates the "is this access token perfect?" check.

This will return a (boolean, message) pair, with boolean indicating success (true means the token is good) and message indicating error (or another affirmation of success).

current_user_can

Only root may have access to this model.

In the near future, we should allow the authorizing user to edit this token (taking care of course that the authorizing user is not actually authed via OAuth!)