view release on metacpan or  search on metacpan

lib/WebService/FuncNet/Results.pm  view on Meta::CPAN

   
   return 
        unless ( defined $rah_data && ref $rah_data eq 'ARRAY' );

   my $rah_sorted_data = 
     $self->prepare_data( $rah_data );
   
   my $xml = 
      XML::Simple::XMLout( 
         $rah_sorted_data, 
         'AttrIndent' => 1, 
         'NoAttr'     => 1,
         'RootName'   => 'results' );
   
   if ( $xml ) {
      return $xml;
   } else {
      carp 'Failed to create XML output';
      return;
   }
}