view release on metacpan or  search on metacpan

lib/Acme/Lvalue.pm  view on Meta::CPAN

use v5.16.0;  # earliest release with #51408 fixed

*VERSION = \'0.03';

{
	package Acme::Lvalue::Proxy;

	sub TIESCALAR {
		my ($class, $ref, $func, $cnuf) = @_;
		bless [$ref, $func, $cnuf], $class
	}

	sub FETCH {
		my ($self) = @_;
		$self->[1]->(${$self->[0]})
	}

	sub STORE {
		my ($self, $val) = @_;
		my $ref = $self->[0];