1#!perl -w 2#!d:\perl\bin\perl.exe 3 4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- 5 6use SOAP::Lite +autodispatch => 7 uri => 'http://www.soaplite.com/My/Parameters', 8 proxy => 'http://localhost/soap', 9# proxy => 'http://localhost/', # local daemon server 10# proxy => 'http://localhost/soap', # local mod_perl server 11# proxy => 'https://localhost/soap', # local mod_perl SECURE server 12# proxy => 'tcp://localhost:82', # local tcp server 13 on_fault => sub { my($soap, $res) = @_; 14 die ref $res ? $res->faultdetail : $soap->transport->status, "\n"; 15 } 16; 17 18print "Session iterator\n"; 19my $p = My::SessionIterator->new(10); 20print $p->next, "\n"; 21print $p->next, "\n"; 22 23print "Persistent iterator\n"; 24$p = My::PersistentIterator->new(10); 25print $p->next, "\n"; 26print $p->next, "\n"; 27