#!/usr/bin/perl -I. -w
use
Aw
'test_broker@localhost:6449'
;
my
%basic
=(
_name
=>
"PerlDevKit::EventOfDoom"
,
b
=> 1,
by
=> 0x10,
c
=>
'c'
,
d
=> 999999999,
l
=> 111111111,
f
=> 3.1415927,
i
=> 100,
's'
=>
"hello"
,
sh
=> 4000,
'uc'
=>
'u'
,
us
=>
'world'
,
b_array
=> [ 0, 1, 0, 1, 0 ],
by_array
=> [ 0x0f, 0x10, 0xff ],
c_array
=> [
'a'
,
'b'
,
'c'
],
d_array
=> [ 0.1, 0.2, 0.3, 0.4 ],
f_array
=> [ 0.1, 0.2, 0.3, 0.4 ],
i_array
=> [ 10, 20, 30 ],
l_array
=> [ 1, 2, 3, 4, 5 ],
s_array
=> [
"String 1"
,
"String 2"
,
"String 3"
],
sh_array
=> [ 1, 2, 3, 4, 5 ],
uc_array
=> [
'a'
,
'b'
,
'c'
],
us_array
=> [
"UC String 1"
,
"UC String 2"
,
"UC String 3"
],
);
$basic
{dt} = new Aw::Date;
$basic
{dt}->setDateCtime (
time
);
print
"Sleeping for a sec...\n"
;
sleep
1;
my
$dT
= new Aw::Date;
$dT
->setDateCtime (
time
);
$basic
{dt_array} = [
$dT
,
$dT
,
$dT
,
$dT
];
my
%basicA
=
%basic
;
my
%basicB
=
%basic
;
my
$doom
= \
%basic
;
$doom
->{st} = \
%basicA
;
$doom
->{st}{st} = \
%basicB
;
my
%structA
=
%$doom
;
my
%structB
=
%$doom
;
my
%structC
=
%$doom
;
$doom
->{st_array} = [ \
%structA
, \
%structB
, \
%structC
];
my
$client
= new Aw::Client (
"PerlDemoClient"
);
my
$event
= new Aw::Event (
$client
,
$doom
);
%basic
= ();
my
%hash
=
$event
->toHash;
print
Dumper(\
%hash
);
print
"\$hash{dt} time is: "
,
$hash
{dt}->toString,
"\n"
;
print
"\$hash{st_array}[1]{st}{dt_array}[2] time is: "
,
$hash
{st_array}[1]{st}{dt_array}[2]->toString,
"\n"
;