diff --git a/Changes b/Changes index 2bd28ac..73608c5 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,8 @@ Revision history for {{$dist->name}} {{$NEXT}} - Remove silly layer of subtesting (thanks to new features in Test::Roo) + - Remove silly sub wrapper in Explain internals (should moderately increase + performance) 2.023001 2014-06-14 12:39:08-05:00 America/Chicago - Add handy SYNOPSIS to ::DateMethods1 (thanks for asking rjbs!) diff --git a/lib/DBIx/Class/Helper/ResultSet/Random.pm b/lib/DBIx/Class/Helper/ResultSet/Random.pm index 3908c5a..758185a 100644 --- a/lib/DBIx/Class/Helper/ResultSet/Random.pm +++ b/lib/DBIx/Class/Helper/ResultSet/Random.pm @@ -12,11 +12,11 @@ sub _introspector { my $d = use_module('DBIx::Introspector') ->new(drivers => '2013-12.01'); - $d->decorate_driver_unconnected(ACCESS => rand_sql => sub { 'RND()' }); - $d->decorate_driver_unconnected(Oracle => rand_sql => sub { 'dbms_random.value' }); - $d->decorate_driver_unconnected(Pg => rand_sql => sub { 'RANDOM()' }); - $d->decorate_driver_unconnected(MSSQL => rand_sql => sub { 'NEWID()' }); - $d->decorate_driver_unconnected(SQLite => rand_sql => sub { 'RANDOM()' }); + $d->decorate_driver_unconnected(ACCESS => rand_sql => 'RND()' ); + $d->decorate_driver_unconnected(Oracle => rand_sql => 'dbms_random.value' ); + $d->decorate_driver_unconnected(Pg => rand_sql => 'RANDOM()' ); + $d->decorate_driver_unconnected(MSSQL => rand_sql => 'NEWID()' ); + $d->decorate_driver_unconnected(SQLite => rand_sql => 'RANDOM()' ); $d }