|
NAMEDBIx::Skinny::Profiler - support query profile. SYNOPSISin your script: use Your::Model;
use Data::Dumper;
my $row = Your::Model->insert('user',
{
id => 1,
}
);
$row->update({name => 'nekokak'});
$row = Your::Model->search_by_sql(q{SELECT id, name FROM user WHERE id = ?}, [ 1 ]);
$row->delete('user')
# get queries
warn Dumper Your::Model->profiler->query_log;
# The following are displayed.
#
# INSERT INTO user (id) VALUES (?) :binds 1
# UPDATE user set name = ? WHERE = id = ? :binds nekokak 1
# SELECT id, name FROM user WHERE id = ? :binds 1
# DELETE user WHERE id = ? :binds 1
execute script: $ SKINNY_PROFILE=1 perl ./sample.pl METHODS
POD ERRORSHey! The above document had some coding errors, which are explained below:
|