my $class = shift;
      my ($args, $as, $needed) = @_;