Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Types.pm @ 165:76515373dac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 16ada169ca75
children
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
7 our @EXPORT_OK = qw(&Integer &Varchar &Float &Real &Text &Binary &DateTime); 7 our @EXPORT_OK = qw(&Integer &Varchar &Float &Real &Text &Binary &DateTime);
8 8
9 require IMPL::SQL::Schema::Type; 9 require IMPL::SQL::Schema::Type;
10 10
11 sub Integer() { 11 sub Integer() {
12 return IMPL::SQL::Schema::Type->new(Name => 'INTEGER'); 12 return IMPL::SQL::Schema::Type->new(name => 'INTEGER');
13 } 13 }
14 14
15 sub Varchar($) { 15 sub Varchar($) {
16 return IMPL::SQL::Schema::Type->new(Name => 'VARCHAR', MaxLength => shift); 16 return IMPL::SQL::Schema::Type->new(name => 'VARCHAR', maxLength => shift);
17 } 17 }
18 18
19 sub Float($) { 19 sub Float($) {
20 return IMPL::SQL::Schema::Type->new(Name => 'FLOAT', Scale => shift); 20 return IMPL::SQL::Schema::Type->new(name => 'FLOAT', scale => shift);
21 } 21 }
22 22
23 sub Real() { 23 sub Real() {
24 return IMPL::SQL::Schema::Type->new(Name => 'REAL'); 24 return IMPL::SQL::Schema::Type->new(name => 'REAL');
25 } 25 }
26 26
27 sub Text() { 27 sub Text() {
28 return IMPL::SQL::Schema::Type->new(Name => 'TEXT'); 28 return IMPL::SQL::Schema::Type->new(name => 'TEXT');
29 } 29 }
30 30
31 sub Binary() { 31 sub Binary() {
32 return IMPL::SQL::Schema::Type->new(Name => 'BINARY'); 32 return IMPL::SQL::Schema::Type->new(name => 'BINARY');
33 } 33 }
34 34
35 sub DateTime() { 35 sub DateTime() {
36 return IMPL::SQL::Schema::Type->new(Name => 'DATETIME'); 36 return IMPL::SQL::Schema::Type->new(name => 'DATETIME');
37 } 37 }
38 38
39 1; 39 1;