Select Code to Download

package XYZ;
use strict; use warnings;
...
 $self->{'ABC'} = 42;
 return $self
}

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