| Aw documentation | Contained in the Aw distribution. |
HelloWorld - A Dummy Class for Aw:: Demonstrations.
require HelloWorld;
my $world = new HelloWorld;
The HelloWorld module is required by the demo_adapter.pl and demo_client.pl demonstration scripts. It serves no practical purpose.
Daniel Yacob Mekonnen, Yacob@wMUsers.Com
perl(1). Aw(3).
| Aw documentation | Contained in the Aw distribution. |
package HelloWorld; BEGIN { use strict; use vars qw($VERSION); $VERSION = '0.2'; } sub new { my $class = shift; my $self = {}; bless $self, $class; } sub speak { print "Hello World\n"; } sub store { my $self = shift; $self->{data} = shift; } sub showData { my $self = shift; print $self->{data}, "\n"; } sub run { my $self = shift; $self->speak; $self->showData; } ######################################################### # Do not change this, Do not put anything below this. # File must return "true" value at termination 1; ########################################################## __END__