view release on metacpan or  search on metacpan

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

=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"
					  },
		     };

  bless ($self, $class);

  if (defined $data) {
    $self->_fromHashRef($data); 
  }
        
  return $self;
}

       
#
# Construct Amazon::SQS::Model::ListQueuesResponse from XML string
# 
sub fromXML {
  my ($self, $xml) = @_;
  eval "use XML::Simple";
  my $tree = XML::Simple::XMLin ($xml);
         
  # TODO: check valid XML (is this a response XML?)
  print Dumper [ $tree ];
  print STDERR $xml;
  
  return new Amazon::SQS::Model::ListDeadLetterSourceQueuesResponse($tree);
          
}
    
sub getListDeadLetterSourceQueuesResult {
  return shift->{_fields}->{ListDeadLetterSourceQueuesResult}->{FieldValue};
}


sub setListDeadLetterSourceQueuesResult {
  my ($self, $value) = @_;
  $self->{_fields}->{ListDeadLetterSourceQueuesResult}->{FieldValue} = $value;
}


sub withListDeadLetterSourceQueuesResult {
  my ($self, $value) = @_;
  $self->setListDeadLetterSourceQueuesResult($value);
  return $self;
}


sub isSetListDeadLetterSourceQueuesResult {
  return defined (shift->{_fields}->{ListDeadLetterSourceQueuesResult}->{FieldValue});

}

sub getResponseMetadata {
  return shift->{_fields}->{ResponseMetadata}->{FieldValue};
}


sub setResponseMetadata {
  my ($self, $value) = @_;
  $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
}


sub withResponseMetadata {