1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
#use lib '.','..';
use Stone;
my $stone = Stone->new(name=>'fred',
age=>30,
address=>{
Mail=>{
street=>'19 Gravel Path',
town=>'Bedrock',
ZIP=>'12345'
},
Electronic=>{
fax=>'111,1111',
email=>'foo@bar.com'
}
},
phone=>{
day=>[[qw/xxxx-xxxx yyy-yyyy/],
[qw/111-1111 333-3333/]
],
eve=>'222-2222'
},
friends=>[qw/amy agnes wendy joe/],
preferences=>{
candy=>[qw/sweet chocolate caramel/],
sports=>[qw/basketball baseball/],
dining=>[qw/ethnic/]
}
);
print $stone->asTable;
|
