Remove unnecessary passing of $self->dbh as a separate param to savepoint methods
[dbsrgits/DBIx-Class-Historic.git] / t / lib / DBICTest / Stats.pm
CommitLineData
adb3554a 1package DBICTest::Stats;
2use strict;
3use warnings;
4
5use base qw/DBIx::Class::Storage::Statistics/;
6
7sub txn_begin {
8 my $self = shift;
9
10 $self->{'TXN_BEGIN'}++;
11 return $self->{'TXN_BEGIN'};
12}
13
14sub txn_rollback {
15 my $self = shift;
16
17 $self->{'TXN_ROLLBACK'}++;
18 return $self->{'TXN_ROLLBACK'};
19}
20
21sub txn_commit {
22 my $self = shift;
23
24 $self->{'TXN_COMMIT'}++;
25 return $self->{'TXN_COMMIT'};
26}
27
28sub svp_begin {
29 my ($self, $name) = @_;
30
31 $self->{'SVP_BEGIN'}++;
32 return $self->{'SVP_BEGIN'};
33}
34
35sub svn_release {
36 my ($self, $name) = @_;
37
38 $self->{'SVP_RELEASE'}++;
39 return $self->{'SVP_RELEASE'};
40}
41
42sub svp_rollback {
43 my ($self, $name) = @_;
44
45 $self->{'SVP_ROLLBACK'}++;
46 return $self->{'SVP_ROLLBACK'};
47}
48
49sub query_start {
50 my ($self, $string, @bind) = @_;
51
52 $self->{'QUERY_START'}++;
53 return $self->{'QUERY_START'};
54}
55
56sub query_end {
57 my ($self, $string) = @_;
58
59 $self->{'QUERY_END'}++;
60 return $self->{'QUERY_START'};
61}
62
631;