gist: 175395


  
    
      Logger.pm #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

          
          
            
              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
Public Clone URL:	git://gist.github.com/175395.git Give this clone URL to anyone. `git clone git://gist.github.com/175395.git gist-175395`
Embed All Files:	show embed