[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / SQLAHacks / MSSQL.pm

package # Hide from PAUSE
  DBIx::Class::SQLAHacks::MSSQL;

use base qw( DBIx::Class::SQLAHacks );
use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;

sub _RowNumberOver {
   my $self = shift;
   my $sql  =  $self->SUPER::_RowNumberOver(@_);
   $sql =~ s/(\s*)SELECT\s Q1\.\*,\s ROW_NUMBER\(\)\s OVER\(\s \)\s AS\s ROW_NUM\s
             FROM\s \(\n(\s*.*)\n\s*(.*)\n\s*\)\s Q1
             /$1SELECT Q1.*, ROW_NUMBER() OVER($3) AS ROW_NUM FROM (\n$2\n) Q1/ixm;
   return $sql;
}

1;
Commit	Line	Data
ac93965c	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
9d2a1bb5	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;
ac93965c	14	}
	15
	16	1;