--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/SQL/Schema/MySQL/CharType.pm	Mon Jan 28 02:43:14 2013 +0400
@@ -0,0 +1,27 @@
+package IMPL::SQL::Schema::MySQL::CharType;
+use strict;
+
+use IMPL::Const qw(:prop);
+use IMPL::declare {
+    require => {
+        Exception => 'IMPL::Exception',
+        ArgException => '-IMPL::InvalidArgumentException'        
+    },
+    base => [
+        'IMPL::SQL::Schema::Type' => '@_'
+    ],
+    props => [
+        encoding => PROP_RO
+    ]
+};
+
+my @CHAR_TYPES = qw(VARCHAR CHAR);
+
+sub CTOR {
+    my ($this) = @_;
+    
+    die ArgException->new(name => "The specified name is invalid", $this->name)
+        unless grep uc($this->name) eq $_, @CHAR_TYPES;
+}
+
+1;
\ No newline at end of file