1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
|
# (c) Sound Object Logic 2000-2001
use strict;
package SpringfieldObject;
sub new
{
my $class = shift;
bless { @_ }, $class;
}
package Person;
use base qw( SpringfieldObject );
package NaturalPerson;
use base qw( Person );
package LegalPerson;
use base qw( Person );
package Address;
use base qw( SpringfieldObject );
package Tangram::Springfield;
use Exporter;
use base qw( Exporter );
use vars qw( @EXPORT $schema );
@EXPORT = qw( $schema );
$schema = Tangram::Schema
->new(
{
classes =>
{
Person =>
{
abstract => 1,
fields =>
{
iarray =>
{
addresses => { class => 'Address',
aggreg => 1 }
}
}
},
Address =>
{
fields =>
{
string => [ qw( type city ) ],
}
},
NaturalPerson =>
{
bases => [ qw( Person ) ],
fields =>
{
string => [ qw( firstName name ) ],
int => [ qw( age ) ],
ref => [ qw( partner ) ],
array => { children => 'NaturalPerson' },
},
},
LegalPerson =>
{
bases => [ qw( Person ) ],
fields =>
{
string => [ qw( name ) ],
ref => [ qw( manager ) ],
},
},
}
} );
1;
|