| Refresh | Home EGTry.com

a simple perl object, no inheritance


my $obj=new Class1();
$obj->setName("John Doe");
$obj->hello();
#output: Hello, John Doe

package Class1;



sub new {
  my $class=shift;
  my $self={};
  bless $self, $class;
  return $self;
}

sub setName {
  my $self=shift;
  my $name=shift;

  $self->{"Name"}=$name;
}

sub getName {
  my $self=shift;
  return $self->{"Name"};
}

sub hello {
  my $self=shift;
  print "Hello, " , $self->{"Name"};
}