Miscellany

#!/usr/bin/perl

package Person;

sub new {

   my $class = shift;
   my $self = {
      _firstname => undef
   };
   bless $self,$class;
   return $self;
}


sub getFirstName {
   my $self = @_;
   return $self->{'_firstname'};
}

sub setFirstName {
   my ($self,$firstName) = @_;
   $self->{'_firstname'}=$firstName if defined($firstName);
   return $self->{'_firstname'};
}

1;


#!/usr/bin/perl
#
use Person;

$object = new Person("yay");
print $object->getFirstName;

$object->setFirstName("face");

print $object->getFirstName;
~                                                                                                                
~                                                                                                                
~