package DBI::SQLWatch;

use DBI;

our $log_filename;
our $old_prepare;

sub import{
    $log_filename = shift;
    die "Not a valid log filename!" unless (defined $log_filename and -e $log_filename);
    $old_prepare = \&DBI::prepare;
    *{'DBI::prepare'} = \&new_prepare;
}

sub new_prepare{
    open LOG_FILE,">>",$log_filename;
    print LOG_FILE $_[0]."\n";
    close LOG_FILE;
    &$old_prepare(@_);
}

1;