package Employee;
use base 'Person';

sub boss {
  my $self = shift;
  if (@_) {
    my $new_boss = shift;
    $self->boss->team_remove($self);
    $new_boss->team_add($self);
    $self->{BOSS} = $new_boss;
  }
  return $self->{BOSS};
}

sub department {
  my $self = shift;
  $self->{DEPARTMENT} = shift if @_;
  return $self->{DEPARTMENT};
}

sub is_important {
  my ($object) = @_;
  return ! defined $object->boss
    || $object->boss->department ne $object->department;
}


1;