Perl itself.
package Authen::SASL::Perl::OAUTHBEARER 2.1900;
use strict;
use vars qw(@ISA);
use JSON::PP;
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
noanonymous => 1,
);
sub _order {
n $auth_string;
}
sub client_step {
my ($self, $challenge) = @_;
my $json = JSON::PP->new;
my $payload = $json->decode( $challenge );
$self->set_error( $payload );
# Send dummy re
as Perl itself.
package Authen::SASL::Perl::XOAUTH2 2.1900;
use strict;
use vars qw(@ISA);
use JSON::PP;
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
noanonymous => 1,
);
sub _order {
rn $auth_string
}
sub client_step {
my ($self, $challenge) = @_;
my $json = JSON::PP->new;
my $payload = $json->decode( $challenge );
$self->set_error( $payload );
# Send dummy re