use SG4InvInterfaces::Inventory::InventoryHttpPort;
use SG4InvElements::findSubscribersResponse;
use SG4InvTypes::ArrayOfSubscriber;
use SG4InvTypes::Subscriber;
use Data::Dumper;

    *SOAP::WSDL::Transport::HTTP::get_basic_credentials = sub {
    return ("xxxxxx", "yyyyyyyy);
     };
 my $service = SG4InvInterfaces::Inventory::InventoryHttpPort->new();
 my @subs;
 my $sub = SG4InvTypes::Subscriber->new();

 my $result = $service->findSubscribers( {
           findSubscriberParams =>  { # SG4InvTypes::FindSubscriberParams
             lastName =>  "Merwood"
           },
         },,
        );

 die $result if not $result;
 print $result->_DUMP . "\n";
 print $result. "\n";

 print $result->get_subscribers()->_DUMP . "\n";

 print Dumper($result->get_subscribers()->get_Subscriber) . "\n";
 @subs=$result->get_subscribers()->get_Subscriber;
 print Dumper(@subs) . "\n";

##</code><code>##


{
  'SG4InvTypes::ArrayOfSubscriber' => {
                                        'Subscriber' => [
                                                          bless( do{\(my $o = 10)}, 'SG4InvTypes::Subscriber' ),
                                                          bless( do{\(my $o = 32)}, 'SG4InvTypes::Subscriber' ),
                                                          bless( do{\(my $o = 53)}, 'SG4InvTypes::Subscriber' )
                                                        ]
                                      }
};

##</code><code>##

$VAR1 = [
          bless( do{\(my $o = 10)}, 'SG4InvTypes::Subscriber' ),
          bless( do{\(my $o = 32)}, 'SG4InvTypes::Subscriber' ),
          bless( do{\(my $o = 53)}, 'SG4InvTypes::Subscriber' )
        ];

##</code><code>##

print $result->get_subscribers()->get_Subscriber().[1]->get_firstName;

##</code><code>##

Can't call method "get_firstName" on unblessed reference at sg4test.pl line 32.

##</code><code>##


NAME
       SG4InvTypes::ArrayOfSubscriber

DESCRIPTION
       Perl data type class for the XML Schema defined complexType
       ArrayOfSubscriber from the namespace
       http://type.eai.ws.servicegateway.supportsoft.com.

   PROPERTIES
       The following properties may be accessed using get_PROPERTY /
       set_PROPERTY methods:

       ·   Subscriber

METHODS
   new
       Constructor. The following data structure may be passed to new():

        { # SG4InvTypes::ArrayOfSubscriber
          Subscriber =>  { # SG4InvTypes::Subscriber
            accountType => $some_value, # SubscriberAccountType
            address =>  $some_value, # string
            address2 =>  $some_value, # string
            attributes =>  { # SG4InvTypes::ArrayOfSubscriberAttribute
              SubscriberAttribute =>  { # SG4InvTypes::SubscriberAttribute
                index =>  $some_value, # int
                name =>  $some_value, # string
                value =>  $some_value, # string
              },
            },
            billingNumber =>  $some_value, # string
            city =>  $some_value, # string
            companyName =>  $some_value, # string
            country =>  $some_value, # string
            deviceUniqueIdentifiers =>  { # SG4InvTypes::ArrayOfString
              string =>  $some_value, # string
            },
            emailAddress =>  $some_value, # string
            firstName =>  $some_value, # string
            lastName =>  $some_value, # string
            middleName =>  $some_value, # string
            phoneNumber =>  $some_value, # string
            postalCode =>  $some_value, # string
            realm =>  $some_value, # string
            services =>  { # SG4InvTypes::ArrayOfString
              string =>  $some_value, # string
            },
            state =>  $some_value, # string
            subscriberID =>  $some_value, # long
          },
        },

AUTHOR
       Generated by SOAP::WSDL