view release on metacpan or  search on metacpan

t/function.t  view on Meta::CPAN

# The early-deref mutates $value to a plain string before optional => CODE is
# evaluated.  The fix captures the original ref so the coderef sees what the
# caller actually passed, not the module's internal representation.

subtest 'validate_strict: type stringref × optional CODE receives original SCALAR ref' => sub {
	my $received;
	my $s = 'world';
	_vs({
		schema => { x => {
			type     => 'stringref',
			optional => sub { $received = $_[0]; 0 },	# 0 = required; just capture
		} },
		input => { x => \$s },
	});
	ok(ref($received) eq 'SCALAR', 'optional coderef receives the original SCALAR ref');
	is(${$received}, 'world',      'the ref still points to the correct string value');
};

subtest 'validate_strict: type stringref × optional CODE returning true — param treated as optional' => sub {
	# Confirm the coderef return value is honoured even though the value is a ref.
	my $s = 'ignored';