Fixed DBICTest Schema class names, added class_resolver system to make them work
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / SQL.pm
1 package DBIx::Class::SQL;
2
3 use strict;
4 use warnings;
5
6 use base qw/Class::Data::Inheritable/;
7
8 use constant COLS => 0;
9 use constant FROM => 1;
10 use constant COND => 2;
11
12 =head1 NAME 
13
14 DBIx::Class::SQL -  SQL Specific methods for DBIx::Class
15
16 =head1 SYNOPSIS
17
18 =head1 DESCRIPTION
19
20 This class contains methods that generates SQL queries for
21 the rest of the L<DBIx::Class> hiarchy. It's also responsible
22 for executing these.
23
24 =cut
25
26 __PACKAGE__->mk_classdata('_sql_statements',
27   {
28     'select' =>
29       sub { "SELECT ".join(', ', @{$_[COLS]})." FROM $_[FROM] WHERE $_[COND]"; },
30     'update' =>
31       sub { "UPDATE $_[FROM] SET $_[COLS] WHERE $_[COND]"; },
32     'insert' =>
33       sub { "INSERT INTO $_[FROM] (".join(', ', @{$_[COLS]}).") VALUES (".
34               join(', ', map { '?' } @{$_[COLS]}).")"; },
35     'delete' =>
36       sub { "DELETE FROM $_[FROM] WHERE $_[COND]"; },
37   } );
38
39 sub create_sql {
40   my ($class, $name, $cols, $from, $cond) = @_;
41   my $sql = $class->_sql_statements->{$name}->($cols, $from, $cond);
42   #warn $sql;
43   return $sql;
44 }
45
46 *_get_sql = \&create_sql;
47
48 1;
49
50 =head1 AUTHORS
51
52 Matt S. Trout <perl-stuff@trout.me.uk>
53
54 =head1 LICENSE
55
56 You may distribute this code under the same terms as Perl itself.
57
58 =cut