lib/DBIx/Class/SQLMaker/ACCESS.pm

   1 package # Hide from PAUSE
   2   DBIx::Class::SQLMaker::ACCESS;
   3
   4 use strict;
   5 use warnings;
   6 use base 'DBIx::Class::SQLMaker';
   7
   8 # inner joins must be prefixed with 'INNER '
   9 sub new {
  10   my $class = shift;
  11   my $self  = $class->next::method(@_);
  12
  13   $self->{_default_jointype} = 'INNER';
  14
  15   return $self;
  16 }
  17
  18 # MSAccess is retarded wrt multiple joins in FROM - it requires a certain
  19 # way of parenthesizing each left part before each next right part
  20 sub _recurse_from {
  21   my @j = shift->_gen_from_blocks(@_);
  22
  23   # first 2 steps need no parenthesis
  24   my $fin_join = join (' ', splice @j, 0, 2);
  25
  26   while (@j) {
  27     $fin_join = sprintf '( %s ) %s', $fin_join, (shift @j);
  28   }
  29
  30   # the entire FROM is *ALSO* expected parenthesized
  31   "( $fin_join )";
  32 }
  33
  34 1;