view Lib/IMPL/ORM/Schema/Field.pm @ 31:d59526f6310e

Small fixes to Test framework (correct handlinf of the compilation errors in the test units) Imported and refactored SQL DB schema from the old project
author Sergey
date Mon, 09 Nov 2009 01:39:16 +0300
parents 6d33f75c6e1f
children d660fb38b7cc
line wrap: on
line source

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;
}

our %CTOR = (
    'IMPL::DOM::Node' => sub { nodeName => 'Field' }
);

sub CTOR {
    my ($this,$name,$type) = @_;
    
    $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');
}

sub canHaveChildren {
    0;
}

1;