1 package Chunkstrumenter;
4 use Class::Method::Modifiers qw(install_modifier);
5 use Data::Dumper::Concise;
10 open my $log_fh, '>>', 'chunkstrumenter.log';
12 install_modifier 'SQL::Abstract', around => '_order_by_chunks' => sub {
13 my ($orig, $self) = (shift, shift);
15 preserve_context { $self->$orig(@args) }
17 my $dumped = Dumper([ $self->{quote_char}, \@args, \@_ ]);
18 $dumped =~ s/\n\Z/,\n/;
19 print $log_fh $dumped;