Commit | Line | Data |
4f0f6fff |
1 | #!/usr/bin/perl |
2 | |
3 | use DBM::Deep; |
4 | use Data::Dumper; |
5 | |
6 | my $hash = new DBM::Deep( |
7 | 'dbi' => { |
8 | 'dsn' => 'DBI:mysql:database=perl;host=localhost', |
9 | 'user' => 'perl', |
10 | 'password' => '2A7Qcmh5CBQvLGUu', |
11 | }, |
12 | 'id' => 20, |
13 | ); |
14 | |
15 | print Dumper( |
16 | $hash, |
17 | $hash->id(), |
18 | ); |
19 | |
20 | my $array = new DBM::Deep( |
21 | 'dbi' => { |
22 | 'dsn' => 'DBI:mysql:database=perl;host=localhost', |
23 | 'user' => 'perl', |
24 | 'password' => '2A7Qcmh5CBQvLGUu', |
25 | }, |
26 | 'type' => DBM::Deep->TYPE_ARRAY, |
27 | 'id' => 21, |
28 | ); |
29 | |
30 | print Dumper( |
31 | $array, |
32 | $array->id(), |
33 | ); |
34 | |