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