Mercurial > pub > Impl
view Lib/IMPL/SQL/Types.pm @ 59:0f3e369553bd
Rewritten property implementation (probably become slower but more flexible)
Configuration infrastructure in progress (in the aspect of the lazy activation)
Initial concept for the code generator
author | wizard |
---|---|
date | Tue, 09 Mar 2010 02:50:45 +0300 |
parents | 16ada169ca75 |
children | 76515373dac0 |
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', MaxLength => 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;