package Employee;
$VERSION = 1.0;

use Person;

# declare who we inherit from
@ISA = ("Person");

##
## This had better be called with three parameters!
## SYNTAX:  new Employee ("George", "Washington", 1234);
##
sub new {
  my ($class, @params) = @_;

  # call our superclasses constructor
  $this = Person::new($class, @params);

  # add our member variable
  $this->{'EMPLOYEE_ID'} = $param[2];

  # bless us as an Employee
  bless($this, $class);
  return ($this);
}

##
## prints out an employee record
##
sub printRecord {
  # shift the argument stack to get a reference to the invoking object
  my ($this) = shift;

  print $this->getName, "\n$this->{'EMPLOYEE_ID'}\n";
}