view release on metacpan or  search on metacpan

lib/Amazon/SQS/Model/ListDeadLetterSourceQueuesResponse.pm  view on Meta::CPAN

################################################################################ 
#  Copyright 2008 Amazon Technologies, Inc.
#  Licensed under the Apache License, Version 2.0 (the "License"); 
#  
#  You may not use this file except in compliance with the License. 
#  You may obtain a copy of the License at: http://aws.amazon.com/apache2.0
#  This file is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR 
#  CONDITIONS OF ANY KIND, either express or implied. See the License for the 
#  specific language governing permissions and limitations under the License.
################################################################################ 
#    __  _    _  ___ 
#   (  )( \/\/ )/ __)
#   /__\ \    / \__ \
#  (_)(_) \/\/  (___/
# 
#  Amazon SQS Perl Library
#  API Version: 2009-02-01
#  Generated: Thu Apr 09 01:13:11 PDT 2009 
# 


package Amazon::SQS::Model::ListDeadLetterSourceQueuesResponse;

use base qw (Amazon::SQS::Model);
use Data::Dumper;

=pod

=head1 NAME

C<Amazon::SQS::Model::ListQueuesResponse>

=head1 SYNOPSIS

 my $response = new Amazon::SQS::Model::ListQueuesResponse( { ListQueuesResult => $result,
                                                              ResponseMetadata => $response_metadata
                                                            }
                                                          );

=head1 DESCRIPTION

Implements a class that contains the response from a C<ListQueues> request.

=head1 METHODS

=head2 new

 new( options )

=head2 isSetListQueuesResult

Returns true if a C<Amazon::SQS::Model::ListQueuesResult> object is set in the response,
false otherwise.

=head2 isSetResponseMetadata

Returns true if a C<Amazon::SQS::Model::ResponseMetadata> object is set in the response,
false otherwise.

=head2 getListQueuesResult

Returns the C<Amazon::SQS::Model::ListQueuesResult> object.

=head2 getResponseMetadata

Returns the C<Amazon::SQS::Model::ResponseMetadata> object.

=cut

sub new {
  my ($class, $data) = @_;

  my $self = {};

  $self->{_fields} = {
		      ListDeadLetterSourceQueuesResult => { 
							   FieldValue => undef,
							   FieldType => "Amazon::SQS::Model::ListDeadLetterSourceQueuesResult"
							  },

		      ResponseMetadata => {
					   FieldValue => undef, 
					   FieldType => "Amazon::SQS::Model::ResponseMetadata"
					  },
		     };