# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
package TestChained;

use strict;
use warnings;

use Class::Dot qw(-new -chained -rebuild :std);

property name           => isa_String;
property email          => isa_String;
property address        => isa_String;
property birthdate_year => isa_Int;


property with_default   => isa_String("hello world!");
property reg            => "hello universe!";

# -rebuild to fill coverage for using rebuild when $new is not true.
sub BUILD {
    return;
}
1;

__END__

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround