--- a/Lib/IMPL/SQL/Types.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/SQL/Types.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,39 +1,39 @@
-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;
+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;