Mercurial > pub > Impl
view Lib/IMPL/SQL/Types.pm @ 290:7b0dad6117d5
*TTView: fixed memory leak
author | sergey |
---|---|
date | Wed, 20 Feb 2013 17:24:57 +0400 |
parents | 76515373dac0 |
children |
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;