Select Code to Download

sub generate {
  my ($self, $OBJS) = @_;
}

sub generate {
  my ($self, [@$OBJS]) = @_;
}

#!/usr/bin/perl -w

...
print "shallow: @$shallow_original\n";
print "deep: @$deep_original\n";

original: 1 42 3
shallow: 1 42 3
deep: 1 2 3