package Manager;
use base Employee;

sub new {
  my ($class) = shift;
  my $self = $class->SUPER::new(@_);
  $self->{TEAM} = [];
  return $self;
}

sub team_add {
  my ($self, $lackey) = @_;
  my $found = 0;
  for my $l (@{$self->{TEAM}}) {
    return if $l == $lackey;
  }
  push @{$self->{TEAM}}, $lackey;
}

sub team_remove {
  my ($self, $lackey) = @_;
  my $found = 0;
  my @new_team;
  for my $l (@{$self->{TEAM}}) {
    push @new_team, $l unless $l == $lackey;
  }
  $self->{TEAM} = \@new_team;
}

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

1;