File Coverage

blib/lib/Protocol/XMPP/Element/Challenge.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition	0	5	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	35	48.5

package Protocol::XMPP::Element::Challenge;

use strict;
use warnings;
use parent qw(Protocol::XMPP::ElementBase);

our $VERSION = '0.007'; ## VERSION

=head1 NAME

Protocol::XMPP::Challenge - deal with the XMPP challenge

=head1 SYNOPSIS

=head1 DESCRIPTION

Generate a response to an XMPP challenge using the L object we set up earlier.

=head1 METHODS

=cut

use MIME::Base64;

=head1 C

On completion of the element, queue a write for the answering token as provided by L. Token
value is opaque binary data, and must be Base64 encoded (using L).

=cut

sub end_element {
  my $self = shift;
  $self->debug("Data was: " . $self->{data});
  my $data = MIME::Base64::decode_base64($self->{data});

  my ($token) = $self->stream->{features}->{sasl_client}->client_step($data);
  $self->debug("Token was [" . ($token || 'undefined') . "]");

# Return either base64 token value, or '=' (which decodes to empty value but we need to be explicit about
# this for some recipients) if we didn't have one.
  my $response = MIME::Base64::encode_base64(defined $token ? $token : '', '');
  $token = '=' unless defined $response && length $response;

  $self->write_xml([
    'response',
    _ns => 'xmpp-sasl',
    _content => $response
  ]);
}

1;

__END__