my $get_val_ref;
my $set_val_ref = sub {
	my $val = shift;
	return sub { return $val ; };
};

sub init     { $get_val_ref = $set_val_ref->(shift); }
sub read_val { return $get_val_ref->(); }