package Manager;
use base Employee;

sub team_add {
  my ($self, $lackey) = @_;
  $self->{TEAM}{$lackey} = $lackey;
}

sub team_remove {
  my ($self, $lackey) = @_;
  delete $self->{TEAM}{$lackey};
}

sub team {
  my $self = shift;
  return values %{$self->{TEAM}};
}

1;