Fix regression in ::Transaction->count

frioux · Nov 26, 2015 · 718810c · 718810c
1 parent 0864e7c
commit 718810c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+  - Fix regression in ::Transaction->count (Thanks Alexander Hartmaier!)
 
 1.004000  2015-11-10 09:26:48-08:00 America/Los_Angeles
   - Replace Moose with Moo

diff --git a/lib/DBIx/Class/QueryLog/Transaction.pm b/lib/DBIx/Class/QueryLog/Transaction.pm
@@ -20,7 +20,7 @@ has queries => (
 );
 
 sub add_to_queries { push @{shift->queries}, @_ }
-sub count { scalar @{shift->log} }
+sub count { scalar @{shift->queries} }
 
 has rolledback => (
     is => 'rw',

diff --git a/t/03-buckets.t b/t/03-buckets.t
@@ -19,6 +19,8 @@ $ql->bucket('foo');
 $ql->txn_begin;
 $ql->query_start('SELECT * from foo');
 $ql->query_end('SELECT * from foo');
+is($ql->current_transaction->count, 1, 'count of ::Transaction works');
+
 $ql->txn_commit;
 cmp_ok($ql->log->[1]->bucket, 'eq', 'foo', 'foo bucket');