Mercurial > pub > Impl
diff Lib/IMPL/SQL/Schema/Column.pm @ 315:77df11605d3a
code cleanup
author | cin |
---|---|
date | Tue, 07 May 2013 02:19:24 +0400 |
parents | 68d905f8dc43 |
children |
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/Column.pm Thu May 02 10:43:49 2013 +0400 +++ b/Lib/IMPL/SQL/Schema/Column.pm Tue May 07 02:19:24 2013 +0400 @@ -5,6 +5,9 @@ use IMPL::Exception(); use IMPL::Const qw(:prop); use IMPL::declare { + require => { + SchemaType => '-IMPL::SQL::Schema::Type' + }, base => [ 'IMPL::Object' => undef, 'IMPL::Object::Autofill' => '@_' @@ -26,7 +29,7 @@ $this->{$isNullable} ||= 0; # if not exists $this->{$isNullable}; - is( $this->{$type}, typeof IMPL::SQL::Schema::Type) or + is( $this->{$type}, SchemaType) or die new IMPL::InvalidArgumentException('a type is required for the column',$this->{$name}); }