008d06b72a
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
27 lines
551 B
Perl
27 lines
551 B
Perl
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);
|
|
}
|
|
|
|
|