I would do something like this:

__PACKAGE__->set_sql(regions_sorted => qq{
    SELECT customer.id, customer.name, region.name
    FROM customer INNER JOIN region
    ON customer.region = region.id
    ORDER BY region.name DESC
  });
  
sub retrieve_sorted_by_region 
{
    my $class = shift;
    my $sth = $class->sql_regions_sorted;
    $sth->execute
        or carp "Error: $DBI::errstr";
    return $class->sth_to_objects($sth);
}
[download]

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print