Cacher is the code snippet organizer for pro developers

package Data::Model::Logger;
use strict;
use warnings;
use Data::Model::Driver::DBI;
use YAML;

no warnings 'redefine';
sub Data::Model::Driver::DBI::start_query {
    my ( $c, $sql, @binds ) = @_;
    print STDERR YAML::Dump( { query => $sql, binds => \@binds } );
}

1;
__END__

=head1 SYNOPSIS

  perl -MData::Model::Logger foo.pl