SOAP::Data, SOAP::SOM 을 사용해 structured 정보 전달

#### Demo.pm 소스
use SOAP::Lite;

package Demo;
 
  #===============================
  # object Acess
  #
  ....

  # SOAP으로 데이터를 만들어 봄
  sub someMethod3
  {
        # $elem1 = SOAP::Data->name('item' => 123)->type('SomeObject');
        # $elem2 = SOAP::Data->name('item' => 456)->type('SomeObject');

        # 흠 SomeObject는 뭐지?
        $elem1 = SOAP::Data->name('id' => 123);
        $elem2 = SOAP::Data->name('name' => "test 입니다");

        push(@array,$elem1);
        push(@array,$elem2);

        $data = SOAP::Data->name("infos" =>
                \SOAP::Data->value( @array )   
        );
       
        return $data;
  }
  ....

  #===============================
  # 클라이언트 소스
  #
  #!perl -w
   use SOAP::Lite;
   use Data::Dumper;

   use SOAP::Lite +autodispatch =>
         uri => 'http://[Server]/Demo',
         proxy => 'http://[Server]/service/service.cgi';

  my $obj = Demo->new(90);
  $som = SOAP::SOM->new;
  $som = $obj->someMethod3();

  print Dumper( $som );