Mercurial > pub > Impl
diff Lib/IMPL/ORM/Schema/Field.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | d660fb38b7cc |
children | 4267a2ac3d46 |
line wrap: on
line diff
--- a/Lib/IMPL/ORM/Schema/Field.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/ORM/Schema/Field.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,30 +1,30 @@ -package IMPL::ORM::Schema::Field; -use strict; -use warnings; - -use base qw(IMPL::DOM::Node); -use IMPL::Class::Property; - -BEGIN { - public property fieldName => prop_get | owner_set; - public property fieldType => prop_get | owner_set; - public property fieldNullbale => prop_get | owner_set; -} - -our %CTOR = ( - 'IMPL::DOM::Node' => sub { nodeName => 'Field' } -); - -sub CTOR { - 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 { - 0; -} - -1; +package IMPL::ORM::Schema::Field; +use strict; +use warnings; + +use base qw(IMPL::DOM::Node); +use IMPL::Class::Property; + +BEGIN { + public property fieldName => prop_get | owner_set; + public property fieldType => prop_get | owner_set; + public property fieldNullbale => prop_get | owner_set; +} + +our %CTOR = ( + 'IMPL::DOM::Node' => sub { nodeName => 'Field' } +); + +sub CTOR { + 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 { + 0; +} + +1;