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