Mercurial > pub > Impl
view Lib/IMPL/SQL/Types.pm @ 76:b1652a158b2b
Web::DOM
author | wizard |
---|---|
date | Wed, 31 Mar 2010 16:17:13 +0400 |
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;