Commit | Line | Data |
f6e5b275 |
1 | use strict; |
2 | use warnings; |
3 | |
ef422264 |
4 | package DBIx::Class::RowCountStatistics::Storage; |
f6e5b275 |
5 | use Class::Method::Modifiers; |
6 | |
7 | sub new { |
8 | my ($class, $original) = @_; |
9 | return bless { |
10 | original => $original, |
11 | }, $class; |
12 | } |
13 | |
14 | sub _cached_sql { |
15 | my ($self) = @_; |
16 | return $self->{cached_sql}; |
17 | } |
18 | |
19 | sub throw_exception { |
20 | my $self = shift; |
21 | return $self->{original}->throw_exception(@_); |
22 | } |
23 | |
24 | sub _select { |
25 | my $self = shift; |
26 | my @res = $self->{original}->_select(@_); |
27 | $self->{cached_sql} = $res[1]{Statement}; |
28 | return @res; |
29 | } |
30 | |
31 | sub debug { |
32 | my $self = shift; |
33 | return $self->{original}->debug(@_); |
34 | } |
35 | |
36 | sub debugobj { |
37 | my $self = shift; |
38 | return $self->{original}->debugobj(@_); |
39 | } |
40 | |
41 | 1; |