etc/sql_example.pl

   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