Select Code to Download

package Person;

...
        ref => [ qw(father) ],
        }
    };

my $father = new Person(name => "Charlie Vilain", age => 49,
                        profession => "DMS II Guru");
...
$self->age("old");       # croaks, age is an int
$self->father("Darth");  # croaks, "Darth" is not a blessed object
print $self->mother();   # croaks, "mother" not recorded in schema

srand 3.14159; print join("",
sort{rand 1<0.5}map{$_^"\037"}split m{
}x,"qmptk|z~wOzm??l]pUqx^k?j"),",\n";