view release on metacpan or  search on metacpan

t/function.t  view on Meta::CPAN

	AZURE_HOST            => 'myvm.cloudapp.net',
	AZURE_HOST2           => 'myvm.azure.com',
	DO_HOST               => 'myserver.digitalocean.something',
	LINODE_HOST           => 'li-1234-5.members.linode.com',
	HETZNER_HOST          => 'srv1.hetzner.de',
	HETZNER_LEGACY_HOST   => 'srv1.your-server.de',
	OVH_HOST              => 'ns1234.ovh.net',
	OVH_EU_HOST           => 'ip-1-2-3-4.eu',
	NONCLOUD_HOST         => 'mail.example.com',

	# Expected carp/crog message fragments
	DENY_ALL_WARN         => 'Usage: all_denied($lingua)',
	DENY_IP_WARN          => 'Usage: allow_ip($ip_address)',
	DENY_COUNTRY_WARN     => 'Usage: deny_country($country)',
	ALLOW_COUNTRY_WARN    => 'Usage: allow_country($country)',
	PLAIN_FN_WARN         => 'CGI::ACL: use ->new() not ::new() to instantiate',
);

# ── Mock Lingua helpers ───────────────────────────────────────────────────────

# Minimal lingua stub that returns a fixed country code