diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/GlobalPOPs/MediaServicesAPI.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Net/GlobalPOPs/MediaServicesAPI.pm b/lib/Net/GlobalPOPs/MediaServicesAPI.pm index 6b671fd..1622eaf 100644 --- a/lib/Net/GlobalPOPs/MediaServicesAPI.pm +++ b/lib/Net/GlobalPOPs/MediaServicesAPI.pm @@ -134,10 +134,12 @@ sub AUTOLOAD { $w->dataElement( 'requesttype' => $function ); - foreach my $opt ( keys %$opts ) { - - $w->dataElement( $opt => $opts->{$opt} ); - + if ( keys %$opts ) { + $w->startTag('item'); + foreach my $opt ( keys %$opts ) { + $w->dataElement( $opt => $opts->{$opt} ); + } + $w->endTag('item'); } $w->endTag('body'); |