sub new {
   my $self = shift;
   register( $self );

##</code><code>##

sub new {
   my $class = shift;
   my $self = register( $class );

##</code><code>##

$manager->{phone} = '555-1313';

# {{what is the behavior of this??}}

##</code><code>##

sub new {
   my $class = shift;
   my $self = register( {}, $class );  # register does the bless, too

##</code><code>##

public   birthday => my %birthday, { set_hook =>; \&_set_birthday };

##</code><code>##

sub _get_birthday {
    strftime '%m/%d/%Y', localtime( $_ ); # but NOT just localtime()
}