my ($class,$d) = shift;

##</code><code>##

      my ($class,$d) = @_;

##</code><code>##

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