import SOAP-WSDL 2.00_17 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_17
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_17.tar.gz

example/visitor/visitor.pl

@@ -0,0 +1,26 @@
+package PersonVisitor;
+use Class::Std;    # handles all basic stuff like constructors etc.
+
+sub visit_Person {
+    my ( $self, $object ) = @_;
+    print "Person name is ", $object->get_name(), "\n";
+}
+
+package Person;
+use Class::Std;
+my %name : ATTR(:name<name> :default<anonymous>);
+
+sub accept { $_[1]->visit_Person( $_[0] ) }
+
+package main;
+my @person_from = ();
+for (qw(Gamma Helm Johnson Vlissides)) {
+    push @person_from, Person->new( { name => $_ } );
+}
+
+my $visitor = PersonVisitor->new();
+for (@person_from) {
+    $_->accept($visitor);
+}
+
+