Select Code to Download

  sub foo {
    my ($self, %args) = @_;
...
      answer => 42,
      %args,
    );

  sub new {
    my ($class, %args) = @_;
...
      %args,
    }, $class;
  }