[dbsrgits/DBM-Deep.git] / etc / sql_example.pl

#!/usr/bin/perl

use DBM::Deep;
use Data::Dumper;

my $hash = new DBM::Deep(
	'dbi' => {
		'dsn' => 'DBI:mysql:database=perl;host=localhost',
		'user' => 'perl',
		'password' => '2A7Qcmh5CBQvLGUu',
	},
	'id' => 20,
);

print Dumper(
	$hash,
	$hash->id(),
);

my $array = new DBM::Deep(
	'dbi' => {
		'dsn' => 'DBI:mysql:database=perl;host=localhost',
		'user' => 'perl',
		'password' => '2A7Qcmh5CBQvLGUu',
	},
	'type' => DBM::Deep->TYPE_ARRAY,
	'id' => 21,
);

print Dumper(
	$array,
	$array->id(),
);
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