/usr/local/CPAN/KiokuDB/KiokuDB/Test/Person.pm

• package KiokuDB::Test::Person
• __END__
• EOF

#!/usr/bin/perl

package KiokuDB::Test::Person;
use Moose;

use namespace::clean -except => 'meta';

has [qw(name age job binary)] => (
    isa => "Str",
    is  => "rw",
);

has so => (
    isa => "KiokuDB::Test::Person",
    is  => "rw",
    weak_ref => 1,
);

has [qw(parents kids friends)] => (
    isa => "ArrayRef[KiokuDB::Test::Person]",
    is  => "rw",
    default => sub { [] },
);

__PACKAGE__->meta->make_immutable;

__PACKAGE__

__END__