Select Code to Download

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

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()
}