Mercurial > pub > Impl
view Lib/IMPL/SQL/Types.pm @ 38:d660fb38b7cc
small fixes
ORM shema to SQL schema transformation
author | Sergey |
---|---|
date | Mon, 23 Nov 2009 17:57:07 +0300 |
parents | 0004faa276dc |
children | 32d2350fccf9 |
line wrap: on
line source
package IMPL::SQL::Types; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(&Integer &Varchar &Float &Real &Text &Binary &DateTime); require IMPL::SQL::Schema::Type; sub Integer() { return IMPL::SQL::Schema::Type->new(Name => 'INTEGER'); } sub Varchar($) { return IMPL::SQL::Schema::Type->new(Name => 'VARCHAR', Length => shift); } sub Float($) { return IMPL::SQL::Schema::Type->new(Name => 'FLOAT', Scale => shift); } sub Real() { return IMPL::SQL::Schema::Type->new(Name => 'REAL'); } sub Text() { return IMPL::SQL::Schema::Type->new(Name => 'TEXT'); } sub Binary() { return IMPL::SQL::Schema::Type->new(Name => 'BINARY'); } sub DateTime() { return IMPL::SQL::Schema::Type->new(Name => 'DATETIME'); } 1;