X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDebug%2FPrettyPrint.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FDebug%2FPrettyPrint.pm;h=251d03d6e5707c274c8986ce2f2c5780798499f5;hb=ca4f826a37ccb5194b0b5b9b4190b4007d647d9c;hp=1d5fd2e2c98655340940b23f3f7352ce7077cbd9;hpb=0e49a4874db140e947911a9bce927332bdf74e02;p=dbsrgits%2FSQL-Abstract.git diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm index 1d5fd2e..251d03d 100644 --- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm +++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm @@ -73,7 +73,7 @@ sub print { sub query_start { my ($self, $string, @bind) = @_; - if(defined $self->callback) { + if (defined $self->callback) { $string =~ m/^(\w+)/; $self->callback->($1, "$string: ".join(', ', @bind)."\n"); return;