File Coverage

blib/lib/Amazon/SQS/Simple/SendResponse.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	3	4	75.0
total	15	35	42.8

package Amazon::SQS::Simple::SendResponse;

use strict;
use warnings;

use Digest::MD5 qw(md5_hex);

sub new {
    my ($class, $msg, $body) = @_;
    $msg = bless($msg, $class);
    if ($body){
        $msg->{MessageBody} = $body;
    }
    return $msg;
}

sub MessageId {
    my $self = shift;
    return $self->{MessageId};
}

sub MD5OfMessageBody {
    my $self = shift;
    return $self->{MD5OfMessageBody};
}

sub VerifyReceipt {
    my $self = shift;
    return $self->{MD5OfMessageBody} eq md5_hex($self->{MessageBody}) ? 1 : undef;
}

1;

__END__

=head1 NAME

Amazon::SQS::Simple::SendResponse - OO API for representing responses to
messages sent to the Amazon Simple Queue Service.

=head1 INTRODUCTION

Don't instantiate this class directly. Objects of this class are returned
by SendMessage in C<Amazon::SQS::Simple::Queue>.
See L<Amazon::SQS::Simple::Queue> for more details.

=head1 METHODS

=over 2

=item B<MessageId()>

Get the message unique identifier

=item B<MD5OfMessageBody()>

Get the MD5 checksum of the message body you sent

=item B<VerifyReceipt()>

Perform verification of message receipt.
Compares the MD5 checksum returned by the response object with the expected checksum.
Returns 1 if receipt is verified, undef otherwise.

=back

=head1 AUTHOR

Copyright 2007-2008 Simon Whitaker E<lt>[e-mail]<gt>
Copyright 2013-2017 Mike (no relation) Whitaker E<lt>[e-mail]<gt>

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut