http://www.perlmonks.org?node_id=410965

Public Scratchpad

Download, Select Code To D/L

---

Using proper syntax

$result_set->search(
    {},
    { select => [
        'winner',
        \'COUNT(*) AS votes',
      ],
      as => [
          'winner',
          'votes',
      ],
      group_by => [
          'winner',
      ],
      having => 
          { 'votes' => 6 },
    }
);
[download]

Produces DBIC_TRACE of:
SELECT winner, COUNT(*) AS votes FROM winners GROUP BY winner HAVING ( votes = ? ): '6'

Short-circuiting placeholders

$result_set->search(
    {},
    { select => [
        'winner',
        \'COUNT(*) AS votes',
      ],
      as => [
          'winner',
          'votes',
      ],
      group_by => [
          'winner',
      ],
      having => 
          'votes = 6',
    }
);
[download]

DBIC_TRACE shows:
SELECT winner, COUNT(*) AS votes FROM winners me GROUP BY winner HAVING ( votes = 6 ):

First fails to return a valid result, second works fine.