1 package DBICTest::DBICDebugObj;
9 use base qw/DBIx::Class::Storage::Statistics/;
10 use base qw/Exporter/;
11 use base qw/Class::Accessor::Fast/;
13 __PACKAGE__->mk_accessors( qw/dbictest_sql_ref dbictest_bind_ref/ );
16 =head2 new(PKG, SQL_REF, BIND_REF, ...)
18 Creates a new instance that on subsequent queries will store
19 the generated SQL to the scalar pointed to by SQL_REF and bind
20 values to the array pointed to by BIND_REF.
29 my $self = $pkg->SUPER::new(@_);
31 $self->debugfh(undef);
33 $self->dbictest_sql_ref($sql_ref);
34 $self->dbictest_bind_ref($bind_ref);
42 (${$self->dbictest_sql_ref}, @{$self->dbictest_bind_ref}) = @_;