##
sub new {
my $class = shift;
my $self = register( $class );
##
##
$manager->{phone} = '555-1313';
# {{what is the behavior of this??}}
##
##
sub new {
my $class = shift;
my $self = register( {}, $class ); # register does the bless, too
##
##
public birthday => my %birthday, { set_hook =>; \&_set_birthday };
##
##
sub _get_birthday {
strftime '%m/%d/%Y', localtime( $_ ); # but NOT just localtime()
}