Sets or retrieves the filehandle used for trace/debug output. This should
be an IO::Handle compatible object (only the C<print> method is used). Initially
should be set to STDERR - although see information on the
-L<DBIX_CLASS_STORAGE_DBI_DEBUG> environment variable.
+L<DBIC_TRACE> environment variable.
=head2 txn_begin
=cut
sub txn_begin {
my $self = shift();
+
+ $self->debugfh->print("BEGIN WORK\n");
}
=head2 txn_rollback
=cut
sub txn_rollback {
my $self = shift();
+
+ $self->debugfh->print("ROLLBACK\n");
}
=head2 txn_commit
=cut
sub txn_commit {
my $self = shift();
+
+ $self->debugfh->print("COMMIT\n");
}
=head2 query_start
if(defined($self->callback())) {
$string =~ m/^(\w+)/;
- $self->callback()->($1, $string);
+ $self->callback()->($1, $string, @_);
return;
}