WIP: Make ->count call ->count_rs->first unless software_limit=1

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSet.pm

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 0a6c002..2531df2 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -1594,6 +1594,8 @@ sub count {
 
   my $attrs = { %{ $self->_resolved_attrs } };
 
+  return $self->count_rs->first unless $attrs->{software_limit};
+
   # this is a little optimization - it is faster to do the limit
   # adjustments in software, instead of a subquery
   my ($rows, $offset) = delete @{$attrs}{qw/rows offset/};