comparison Lib/IMPL/SQL/Types.pm @ 44:32d2350fccf9

ORM *Minor fixes *Working tarnsform to sql *Fixes to the sql traits
author Sergey
date Mon, 11 Jan 2010 01:42:00 +0300
parents d660fb38b7cc
children 16ada169ca75
comparison
equal deleted inserted replaced
43:009aa9ca2e48 44:32d2350fccf9
11 sub Integer() { 11 sub Integer() {
12 return IMPL::SQL::Schema::Type->new(Name => 'INTEGER'); 12 return IMPL::SQL::Schema::Type->new(Name => 'INTEGER');
13 } 13 }
14 14
15 sub Varchar($) { 15 sub Varchar($) {
16 return IMPL::SQL::Schema::Type->new(Name => 'VARCHAR', Length => shift); 16 return IMPL::SQL::Schema::Type->new(Name => 'VARCHAR', MaxLength => shift);
17 } 17 }
18 18
19 sub Float($) { 19 sub Float($) {
20 return IMPL::SQL::Schema::Type->new(Name => 'FLOAT', Scale => shift); 20 return IMPL::SQL::Schema::Type->new(Name => 'FLOAT', Scale => shift);
21 } 21 }