added join option for select()

xaicron · Apr 26, 2012 · 73e5ec0 · 73e5ec0
1 parent 21a137a
commit 73e5ec0
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/lib/SQL/Format.pm b/lib/SQL/Format.pm
@@ -623,6 +623,11 @@ sub select {
     my $suffix = delete $opts->{suffix};
     my $format = "$prefix %c FROM %t";
     my @args   = ($cols, $table);
+
+    if (my $join = delete $opts->{join}) {
+        $format .= ' %j';
+        push @args, $join;
+    }
     if (keys %{ $where || {} }) {
         $format .= ' WHERE %w';
         push @args, $where;
@@ -1104,6 +1109,8 @@ Default value is C<< '' >>
 
 =item $opts->{having}
 
+=item $opts->{join}
+
 See also C<< %o >> format.
 
 =back

diff --git a/t/30_select.t b/t/30_select.t
@@ -93,4 +93,27 @@ $test->(
     },
 );
 
+$test->(
+    desc => 'join',
+    input => [
+        { foo => 'f' },
+        [qw/f.id b.name/],
+        { 'f.created_at' => { '>' => \['UNIX_TIMESTAMP() - ?', 60 * 10] } },
+        {
+            order_by => 'f.id',
+            limit    => 10,
+            offset   => 20,
+            join     => {
+                type      => 'left',
+                table     => { bar => 'b' },
+                condition => [qw/id/],
+            },
+        },
+    ],
+    expects => {
+        stmt => 'SELECT `f`.`id`, `b`.`name` FROM `foo` `f` LEFT JOIN `bar` `b` USING (`id`) WHERE (`f`.`created_at` > UNIX_TIMESTAMP() - ?) ORDER BY `f`.`id` LIMIT 10 OFFSET 20',
+        bind => [qw/600/],
+    },
+);
+
 done_testing;