<commit_before>package DBIxProfiler;
use strict;
use warnings;

use base qw(DBIx::Class::Storage::Statistics);

use Time::HiRes qw(time);

my $start;
my $QCOUNT = 0;

sub query_start {
  my $self = shift();
  my $sql = shift();
  my @params = @_;

  print "Executing $sql: ".join(', ', @params)."\n";
  $start = time();
}

sub query_end {
  my $self = shift();
  my $sql = shift();
  my @params = @_;

  printf "Execution took %0.4f seconds.\n", time() - $start;
  $QCOUNT += 1;
  $start = undef;
}

sub DESTROY {
  print STDERR "*** QCOUNT=", $QCOUNT, "\n";
}

1;
<commit_msg>modified to print to STDERR<commit_after>package DBIxProfiler;
use strict;
use warnings;

use base qw(DBIx::Class::Storage::Statistics);

use Time::HiRes qw(time);

my $start;
my $QCOUNT = 0;

sub query_start {
  my $self = shift();
  my $sql = shift();
  my @params = @_;

  print STDERR "Executing $sql: ".join(', ', @params)."\n";
  $start = time();
}

sub query_end {
  my $self = shift();
  my $sql = shift();
  my @params = @_;

  printf "Execution took %0.4f seconds.\n", time() - $start;
  $QCOUNT += 1;
  $start = undef;
}

sub DESTROY {
  print STDERR "*** QCOUNT=", $QCOUNT, "\n";
}

1;

{'fraction_non_alphanumeric': 0.19404255319148936, 'fraction_numerical': 0.00851063829787234, 'mean_word_length': 3.59375, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7571986', 'n_tokens_mistral': 478, 'n_tokens_neox': 467, 'n_words': 131}