File Coverage

blib/lib/Net/POP3/XOAuth2.pm

Criterion	Covered	Total	%
statement	17	29	58.6
branch	0	8	0.0
condition	0	3	0.0
subroutine	6	9	66.6
pod			n/a
total	23	49	46.9

package Net::POP3::XOAuth2;

use 5.008001;
use strict;
use warnings;

use Carp;
use Net::POP3;
use MIME::Base64;

our $VERSION = '0.0.2';

*Net::POP3::_AUTH = sub { shift->command('AUTH', $_[0])->response() == Net::POP3::CMD_OK };
# Send a token directly
*Net::POP3::_XOAUTH2_TOKEN = sub { shift->command($_[0])->response() == Net::POP3::CMD_OK };
*Net::POP3::xoauth2 = sub {
    @_ >= 1 && @_ <= 4 or croak 'usage: $pop3->xoauth2( USER, TOKEN, separate_flag )';
    my ($me, $user, $token, $separate_flag) = @_;
    my $xoauth2_token = encode_base64("user=$user\001auth=Bearer $token\001\001");
    $xoauth2_token =~ s/[\r\n]//g;

    # If you use office365, need to call 'XOAUTH2' and token separately
    # https://docs.microsoft.com/ja-jp/Exchange/client-developer/legacy-protocols/how-to-authenticate-an-imap-pop-smtp-application-by-using-oauth
    if ($separate_flag) {
        $me->_AUTH("XOAUTH2");
        my $r = $me->_XOAUTH2_TOKEN($xoauth2_token);
        return unless $r;
    } else {
        return unless ($me->_AUTH("XOAUTH2 $xoauth2_token"));
    }
    $me->_get_mailbox_count();
};

1;
__END__