{
  package Foo;

  sub new {
    my $pkg = shift;
    my %data = (
        bar => undef,
    );

    bless sub {
        my $field = shift;
        @_ and $data{$field} = shift;
        $data{$field}
    }, $pkg
  }

  sub bar {
    my $self = shift; # the blessed closure
    $self->( 'bar', @_ )
  }
}