sub TIESCALAR { bless \(my $foo = pop), shift; }
sub STORE { ${ +shift } = pop }
sub FETCH { ${ +shift } }

###

sub foo {
    my ($self, $foo) = @_;
    ...
}

sub foobar {
    my ($self, %options) = @_;
    ...
}