Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-SOAP-WSDL-examples/example/visitor/
Upload File :
Current File : //proc/thread-self/root/usr/share/doc/perl-SOAP-WSDL-examples/example/visitor/visitor.pl

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);
}