| Current Path : /usr/share/doc/perl-DBIx-Class/t/lib/DBICTest/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/lib/DBICTest/SQLMRebase.pm |
package DBICTest::SQLMRebase;
use warnings;
use strict;
our @ISA = qw( DBIx::Class::SQLMaker::ClassicExtensions SQL::Abstract::Classic );
__PACKAGE__->mk_group_accessors( simple => '__select_counter' );
sub select {
$_[0]->{__select_counter}++;
shift->next::method(@_);
}
1;