lib/DBIx/Class/SQLAHacks/MSSQL.pm

   1 package # Hide from PAUSE
   2   DBIx::Class::SQLAHacks::MSSQL;
   3
   4 use base qw( DBIx::Class::SQLAHacks );
   5 use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;
   6
   7 sub _RowNumberOver {
   8    my $self = shift;
   9    my $sql  =  $self->SUPER::_RowNumberOver(@_);
  10    $sql =~ s/(\s*)SELECT\s Q1\.\*,\s ROW_NUMBER\(\)\s OVER\(\s \)\s AS\s ROW_NUM\s
  11              FROM\s \(\n(\s*.*)\n\s*(.*)\n\s*\)\s Q1
  12              /$1SELECT Q1.*, ROW_NUMBER() OVER($3) AS ROW_NUM FROM (\n$2\n) Q1/ixm;
  13    return $sql;
  14 }
  15
  16 1;