easy QueryComment(where the query executed)

gistfile1.pl

my $dbh = DBI->connect('dbi:mysql:test','test','test', {
    RaiseError => 1,
    Callbacks  => {
        ChildCallbacks => {
            execute => sub {
                my ($obj, @binds) = @_;
                my ($package, $file, $line) = caller;
                $obj->{Database}->{Statement} .= "/* $package:$file:$line */";
                return;
            },
        },
    },
});