lib/Authen/SASL/Perl/XOAUTH2.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

package Authen::SASL::Perl::XOAUTH2; 
use strict;
use warnings;
use 5.020;
use parent 'Authen::SASL::Perl';
 
sub _order { 10 }
 
sub mechanism { 'XOAUTH2' }
 
sub client_start { '' }
 
sub client_step {
    my ($self, $string) = @_;
    my ($username, $token) = map {
        my $v = $self->_call($_);
        defined($v) ? $v : ''
    } qw(user pass);
 
    "user=${username}\cAauth=Bearer $token\cA\cA",
}
 
1;