view release on metacpan or  search on metacpan

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

package Amazon::SQS::Model;

use strict;
use warnings;

use Amazon::SQS::Constants qw(:all);
use List::Util qw(pairs);
use Module::Load qw(load);

#
# XML fragment representation of this object
# Note, name of the root determined by caller
# This fragment returns inner fields representation only
sub _toXMLFragment {
  my ($self) = @_;
  my $xml = $EMPTY;

  foreach my $p ( pairs %{ $self->{_fields} } ) {
    my ( $fieldName, $field ) = @{$p};

    my $fieldValue = $field->{FieldValue};

    if ( defined $fieldValue ) {