view release on metacpan or  search on metacpan

t/default_value_extraction.t  view on Meta::CPAN

	is(
		$db_input->{ssl}{_default},
		0,
		'Real-world: SSL defaults to false'
	);

	is(
		$db_input->{timeout}{_default},
		10,
		'Real-world: Timeout default'
	);

	# Test email method
	my $email_schema = $schemas->{send_email};
	my $email_input = $email_schema->{input};

	is(
		$email_input->{subject}{_default},
		'No subject',
		'Real-world: Email subject default'