[dbsrgits/SQL-Abstract.git] / examples / dbic-console.pl

#!/sur/bin/env perl

use warnings;
use strict;

use DBIx::Class::Storage::Debug::PrettyPrint;

my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
   profile => 'console',
   show_progress => 1,
});

$pp->txn_begin;
$pp->query_start("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
sleep 1;
$pp->query_end("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
$pp->txn_commit;
Commit	Line	Data
48f4cadf	1	#!/sur/bin/env perl
48f4cadf	2
5f3fa0ac	3	use warnings;
	4	use strict;
	5
48f4cadf	6	use DBIx::Class::Storage::Debug::PrettyPrint;
	7
	8	my $pp = DBIx::Class::Storage::Debug::PrettyPrint->new({
	9	profile => 'console',
27b516bb	10	show_progress => 1,
48f4cadf	11	});
	12
	13	$pp->txn_begin;
	14	$pp->query_start("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
	15	sleep 1;
	16	$pp->query_end("SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE ?", q('station'));
	17	$pp->txn_commit;
	18