Help for this page

Select Code to Download


  1. or download this
    sub set_name {
  my $self  = Object->( shift );
...
  my $self = Object->( shift );
  return $self->{name};
}