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