Mercurial > pub > Impl

diff Lib/IMPL/SQL/Types.pm @ 165:76515373dac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 16ada169ca75
children
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Types.pm	Mon Mar 28 01:36:24 2011 +0400
+++ b/Lib/IMPL/SQL/Types.pm	Sat Apr 23 23:06:48 2011 +0400
@@ -9,31 +9,31 @@
 require IMPL::SQL::Schema::Type;
 
 sub Integer() {
-    return IMPL::SQL::Schema::Type->new(Name => 'INTEGER');
+    return IMPL::SQL::Schema::Type->new(name => 'INTEGER');
 }
 
 sub Varchar($) {
-    return IMPL::SQL::Schema::Type->new(Name => 'VARCHAR', MaxLength => shift);
+    return IMPL::SQL::Schema::Type->new(name => 'VARCHAR', maxLength => shift);
 }
 
 sub Float($) {
-    return IMPL::SQL::Schema::Type->new(Name => 'FLOAT', Scale => shift);
+    return IMPL::SQL::Schema::Type->new(name => 'FLOAT', scale => shift);
 }
 
 sub Real() {
-    return IMPL::SQL::Schema::Type->new(Name => 'REAL');
+    return IMPL::SQL::Schema::Type->new(name => 'REAL');
 }
 
 sub Text() {
-    return IMPL::SQL::Schema::Type->new(Name => 'TEXT');
+    return IMPL::SQL::Schema::Type->new(name => 'TEXT');
 }
 
 sub Binary() {
-    return IMPL::SQL::Schema::Type->new(Name => 'BINARY');
+    return IMPL::SQL::Schema::Type->new(name => 'BINARY');
 }
 
 sub DateTime() {
-    return IMPL::SQL::Schema::Type->new(Name => 'DATETIME');
+    return IMPL::SQL::Schema::Type->new(name => 'DATETIME');
 }
 
 1;