Mercurial > pub > Impl
diff Lib/IMPL/ORM/Schema/Field.pm @ 43:009aa9ca2e48
merge
author | Sergey |
---|---|
date | Thu, 07 Jan 2010 15:41:49 +0300 |
parents | d660fb38b7cc |
children | 16ada169ca75 |
line wrap: on
line diff
--- a/Lib/IMPL/ORM/Schema/Field.pm Thu Jan 07 15:34:42 2010 +0300 +++ b/Lib/IMPL/ORM/Schema/Field.pm Thu Jan 07 15:41:49 2010 +0300 @@ -8,6 +8,7 @@ BEGIN { public property fieldName => prop_get | owner_set; public property fieldType => prop_get | owner_set; + public property fieldNullbale => prop_get | owner_set; } our %CTOR = ( @@ -15,10 +16,11 @@ ); sub CTOR { - my ($this,$name,$type) = @_; + my ($this,$name,$type,$nullable) = @_; $this->fieldName($name) or die new IMPL::InvalidArgumentException('A name is required for the field'); $this->fieldType($type) or die new IMPL::InvalidArgumentException('A type is required for the field'); + $this->fieldNullbale(1) if $nullable; } sub canHaveChildren {