[scpubgit/Q-Branch.git] / maint / lib / Chunkstrumenter.pm

package Chunkstrumenter;

use strictures 2;
use Class::Method::Modifiers qw(install_modifier);
use Data::Dumper::Concise;
use Context::Preserve;

require SQL::Abstract;

open my $log_fh, '>>', 'chunkstrumenter.log';

install_modifier 'SQL::Abstract', around => '_order_by_chunks' => sub {
  my ($orig, $self) = (shift, shift);
  my @args = @_;
  preserve_context { $self->$orig(@args) }
    after => sub {
      my $dumped = Dumper([ $self->{quote_char}, \@args, \@_ ]);
      $dumped =~ s/\n\Z/,\n/;
      print $log_fh $dumped;
    };
};

1;
Commit	Line	Data
1b630cfe	1	package Chunkstrumenter;
	2
	3	use strictures 2;
	4	use Class::Method::Modifiers qw(install_modifier);
	5	use Data::Dumper::Concise;
	6	use Context::Preserve;
	7
	8	require SQL::Abstract;
	9
	10	open my $log_fh, '>>', 'chunkstrumenter.log';
	11
	12	install_modifier 'SQL::Abstract', around => '_order_by_chunks' => sub {
	13	my ($orig, $self) = (shift, shift);
	14	my @args = @_;
	15	preserve_context { $self->$orig(@args) }
	16	after => sub {
	17	my $dumped = Dumper([ $self->{quote_char}, \@args, \@_ ]);
	18	$dumped =~ s/\n\Z/,\n/;
	19	print $log_fh $dumped;
	20	};
	21	};
	22
	23	1;