NAME

DBIx::Skinny::Profiler - support query profile.

SYNOPSIS

in 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

$profiler->query_log()

get all execute SQLs.

$profile->reset()

Recorded query information is reset.