Select Code to Download

01:  my $_init_ = sub {
02:    my $self = shift;
...
14:    $self->$_init_();
15:    return $self;
16:  }

sub new {
  my $class = shift;
...
sub _init {
  # instance initialization
}

07:    my $type = shift;
08:    my $class = ref($type) || $type;

$employee{Sally} = Employee->new;
$employee{Bob}   = $employee{Sally}->new;

$employee{Sally} = Employee->new;
$employee{Bob}   = $employee{Sally}->clone;

sub accessor_to_column {
  my ($proto,$column) = @_;
...
  }
  return $found_column;
}