next;
}
elsif ($special_case{pre_pre})
{
	if ($line =~ /<\/pre>/)
	{
		$special_case{pre_pre} = false;

		$$item{html}	= '<button id="trigger">Hover over me</button>';
		$$item{text}	= $token;
	}
	else
	{
		push @pre_pre, $line;
	}
}

my($count) = 0;

my($entry);
my(@pieces);
my($text_is_topic, $topic_id);

for $item (@see_also)
{
	$count++;

	if ($count == 1)
	{
		$$topic{id}++;

		push @lines, {href => '', id => $$topic{id}, text => 'See also:'};
	}

	@pieces			= split(/ - /, $$item{text});
	$pieces[0]		= $1 if ($pieces[0] =~ $topic_name_re); # Eg: [[XS]].
	$pieces[1]		= defined($pieces[1]) && (length($pieces[1]) ) ? "$pieces[0] - $pieces[1]" : $pieces[0];
	$topic_id		= $$pad{topic_names}{$pieces[0]} || 0;
	$text_is_topic	= ($topic_id > 0) ? true : false;

	if ($$item{text} =~ /^http/) # Eg: https://perldoc.perl.org/ - PerlDoc
	{
		$$item{text} = "<a href = '$pieces[0]'>$$item{text}</a>";
	}
	elsif ($text_is_topic) # Eg: GeographicStuff or [[HTTPHandling]] or CryptoStuff - re Data::Entropy
	{
		$self -> logger -> error("Missing id for topic") if ($topic_id == 0);

		$$item{text}	= "$pieces[0] (topic)";
		#$$item{text}	= "<a href = '#$topic_id'>pieces[1]</a>";
		#$$item{text}	= qq|<button onclick="\$('#jstree_div').jstree(true).select_node('$topic_id');">$$item{text}</button>|;
		#$$item{text}	= qq|<button onclick="\$('#jstree_div').jstree(true).select_node('#$topic_id');">$$item{text}</button>|;
		#$$item{text}	= qq|<button onclick="\$('#jstree_div').jstree(true).select_node('\#$topic_id');">$$item{text}</button>|;
	}
	else # Eg: It's a module.
	{
		$$item{text} = "<a href = 'https://metacpan.org/pod/$pieces[0]'>$$item{text}</a>";
	}

	push @lines, $item;

Machine-Readable Change Log

The file Changes was converted into Changelog.ini by Module::Metadata::Changes.

Version Numbers

Version numbers < 1.00 represent development versions. From 1.00 up, they are production versions.

Support

Email the author.

Author

CPAN::MetaCurator was written by Ron Savage <ron@savage.net.au> in 2025.

My homepage: https://savage.net.au/.

Copyright

Australian copyright (c) 2025, Ron Savage.

All Programs of mine are 'OSI Certified Open Source Software';
you can redistribute them and/or modify them under the terms of
The Perl License, a copy of which is available at:
http://dev.perl.org/licenses/