Amazon::SQS::Simple::Message - OO API for representing messages from

Amazon-SQS-Simple documentation

Contained in the Amazon-SQS-Simple distribution.

Index

NAME
INTRODUCTION
METHODS
AUTHOR

Code Index:

package Amazon::SQS::Simple::Message
- new
- MessageBody
- MD5OfBody
- MessageId
- ReceiptHandle
__END__
EOF

NAME

Amazon::SQS::Simple::Message - OO API for representing messages from the Amazon Simple Queue Service.

INTRODUCTION

Don't instantiate this class directly. Objects of this class are returned by various methods in Amazon::SQS::Simple::Queue. See Amazon::SQS::Simple::Queue for more details.

METHODS

MessageBody(): Get the message body.
MessageId(): Get the message unique identifier
MD5OfBody(): Get the MD5 checksum of the message body
ReceiptHandle(): Get the receipt handle for the message (used as an argument to DeleteMessage)

AUTHOR

Copyright 2007-2008 Simon Whitaker <swhitaker@cpan.org>

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

Amazon-SQS-Simple documentation

Contained in the Amazon-SQS-Simple distribution.

package Amazon::SQS::Simple::Message;

use strict;
use warnings;

use Amazon::SQS::Simple::Base; # for constants

sub new {
    my $class = shift;
    my $msg = shift;
    my $version = shift || $Amazon::SQS::Simple::Base::DEFAULT_SQS_VERSION;
    $msg->{Version} = $version;
    return bless ($msg, $class);
}

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

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

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

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

1;

__END__