package Employee;

sub spawn							
    {							
     my $invocant = shift;							
     my $class = ref($invocant) || $invocant;							
     my $self =							
            {							
             empid => 200,							
             name => "Joe",							
             pay => 20,							
             @_,							
            };							
   sub get_name							
            {							
            my $self = shift;							
            return $self-> (name);							
            }							
   sub set_name							
          {							
          my $self = shift;							
          $self -> (name) = shift;							
          }							
   sub get_pay							
            {							
            my $self = shift;							
            return $self-> (pay);							
            }							
   sub set_pay							
          {							
          my $self = shift;							
          $self -> (pay) = shift;							
          }							
    return bless $self, $class;							
   }	

$wk1 = Employee->spawn(name=>"Joe", empid=>201, pay=>25);
$wk2 = Employee->spawn(name=>"Moe");							
$wk3 = Employee->spawn(name=>"Bob", empid=>202);
							
print $wk1->name," Earns ",$wk1->pay," dollars per hour. His/her Emp ID is: ",$wk1->empid;							
print $wk2->name," Earns ",$wk2->pay," dollars per hour. His/her Emp ID is: ",$wk2->empid;							
print $wk3->name," Earns ",$wk3->pay," dollars per hour. His/her Emp ID is: ",$wk3->empid;	

print "Got this far!";							
$wk1->set_pay(70);							
$wk2->set_name("NewMoe");							
							
print $wk1;#->name," Earns ",$wk1->pay," dollars per hour. His/her Emp ID is: ",$wk1->empid;							
print $wk2;#->name," Earns ",$wk2->pay," dollars per hour. His/her Emp ID is: ",$wk2->empid;							
print $wk3;#->name," Earns ",$wk3->pay," dollars per hour. His/her Emp ID is: ",$wk3->empid;