package Aw::ClientX; BEGIN { use strict; use vars qw($VERSION); $VERSION = '0.3'; use Aw; require Aw::Client; } sub new { my $self = {}; my $blessing = bless $self, shift; if ( @_ > 2 ) { $self->{_client} = Aw::Client::_new ( "Aw::Client", @_ ) } else { my ($client_group) = @_; my $app_name = (@_ == 2) ? $_[1] : $0.".Client"; $self->{_client} = Aw::Client::_new ( "Aw::Client", $Aw::DefaultBrokerHost, $Aw::DefaultBrokerName, "", $client_group, $app_name ); } $blessing; } sub AUTOLOAD { my($self) = shift; my($arg) = shift; my($method) = ($AUTOLOAD =~ /::([^:]+)$/); return unless ($method); $self->{_client}->$method ( $arg ); } ######################################################### # Do not change this, Do not put anything below this. # File must return "true" value at termination 1; ########################################################## __END__ =head1 NAME Aw::ClientX - ActiveWorks Client as Blessed Hash. =head1 SYNOPSIS require Aw::ClientX; my $client = new Aw::ClientX ( "myGroup", "myApp" ); =head1 DESCRIPTION Demonstative module that allows for a blessed hash to act as a client. =head1 AUTHOR Daniel Yacob Mekonnen, L<Yacob@wMUsers.Com|mailto:Yacob@wMUsers.Com> =head1 SEE ALSO S<perl(1). Aw(3).> =cut