for my $method (qw(get put whatever)) {
    *$method = sub { my $self = shift; $self->{furl}->$method( @_ ); }
};