toopher-perl-authentication-example.pm

use ToopherAPI

# Create an API object using your credentials
my $api = new ToopherApi("<your consumer key>", "<your consumer secret>");

# Authenticate a log in
my $auth = $api->authenticate($pairing_status->id, "my computer")

# Once they've responded you can then check the status
my $auth_status = $api->get_authentication_status($auth->id)
if (!($auth_status->pending) && $auth_status->granted) {
        # Success!
}