Mercurial > pub > Impl
comparison Lib/IMPL/SQL/Types.pm @ 43:009aa9ca2e48
merge
author | Sergey |
---|---|
date | Thu, 07 Jan 2010 15:41:49 +0300 |
parents | d660fb38b7cc |
children | 32d2350fccf9 |
comparison
equal
deleted
inserted
replaced
42:4ff27cd051e3 | 43:009aa9ca2e48 |
---|---|
2 use strict; | 2 use strict; |
3 use warnings; | 3 use warnings; |
4 | 4 |
5 require Exporter; | 5 require Exporter; |
6 our @ISA = qw(Exporter); | 6 our @ISA = qw(Exporter); |
7 our @EXPORT_OK = qw(&Integer &Varchar &Float &Real &Text &Binary); | 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'); |
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() { | |
36 return IMPL::SQL::Schema::Type->new(Name => 'DATETIME'); | |
37 } | |
38 | |
35 1; | 39 1; |