view release on metacpan or  search on metacpan

t/magic.t  view on Meta::CPAN

	);
}

my $magic;
my $fetched;
{
	package t::TiedScalar::CountFetch;
	sub TIESCALAR { bless({ value => $_[1] }, $_[0]) }
	sub FETCH { $fetched++; $_[0]->{value} }
}
sub tm1(&$;$) {
	untie $magic;
	$magic = $_[2];
	tie $magic, "t::TiedScalar::CountFetch", $_[1];
	$fetched = 0;
	$_[0]->();
	is $fetched, 1;
}

tm1 {
	ok tuple_slot(pure_tuple($magic), 0) == \$::s0;