view release on metacpan or  search on metacpan

lib/Amazon/SQS/Model/ChangeMessageVisibilityBatchRequestEntry.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::ChangeMessageVisibilityBatchRequestEntry;

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

=pod

=head1 NAME

 Amazon::SQS::Model::ChangeMessageVisibilityBatchRequestEntry

=head1 SYNOPSIS

 my $attribute = new Amazon::SQS::Model::ChangeMessageVisibilityBatchRequestEntry( 
                                                   { 
                                                    Id => id,
                                                    ReceiptHandle => receiptHandle,
                                                    VisibilityTimeout => '60'
                                                   }

=cut

sub new {
  my ($class, $data) = @_;
  my $self = {};
  $self->{_fields} = {
		      Id => { FieldValue => undef, FieldType => "string"},
		      ReceiptHandle => { FieldValue => undef, FieldType => "string"},
		      VisibilityTimeout => {FieldValue => undef, FieldType => "int"},
        };
  
  bless ($self, $class);
  
  if (defined $data) {
    $self->_fromHashRef($data); 
  }
  
  return $self;
}

sub getId {
  return shift->{_fields}->{Id}->{FieldValue};
}


sub setId {
  my ($self, $value) = @_;

  $self->{_fields}->{Id}->{FieldValue} = $value;
  return $self;
}


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


sub isSetId {
  return defined (shift->{_fields}->{Id}->{FieldValue});
}


sub getVisibilityTimeout {
  return shift->{_fields}->{VisibilityTimeout}->{FieldValue};
}


sub setVisibilityTimeout {
  my ($self, $value) = @_;

  $self->{_fields}->{VisibilityTimeout}->{FieldValue} = $value;
  return $self;
}


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


sub isSetVisibilityTimeout {
  return defined (shift->{_fields}->{VisibilityTimeout}->{FieldValue});
}


sub getReceiptHandle {
  return shift->{_fields}->{ReceiptHandle}->{FieldValue};