1 package # hide from PAUSE
10 use base qw/DBIx::Class::Storage::Statistics/;
11 use base qw/Exporter/;
12 use base qw/Class::Accessor::Fast/;
14 __PACKAGE__->mk_accessors( qw/dbictest_sql_ref dbictest_bind_ref/ );
17 =head2 new(PKG, SQL_REF, BIND_REF, ...)
19 Creates a new instance that on subsequent queries will store
20 the generated SQL to the scalar pointed to by SQL_REF and bind
21 values to the array pointed to by BIND_REF.
30 my $self = $pkg->SUPER::new(@_);
32 $self->debugfh(undef);
34 $self->dbictest_sql_ref($sql_ref);
35 $self->dbictest_bind_ref($bind_ref);
43 (${$self->dbictest_sql_ref}, @{$self->dbictest_bind_ref}) = @_;