Select Code to Download

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

sub get {
  my $self = shift;
  $self->{_mech}->get(@_);
}

for my $func (qw(get click ...)) {
  no strict 'refs';
...
    $self->{_mech}->$func(@_);
  };
}

use Moose;

has _mech => ( is => 'rw', handles => [ qw(get click ...) ] );