$index += 2;

$finished = $lines[$index] =~ $token_re ? true : false;

$self -> logger -> debug("  Test $lines[$index] => $finished");

while (! $finished)
{
	$$item{id}++;

	$$item{html}	= '';
	$$item{text}	= $lines[$index];

	push @items, $item;

	$self -> logger -> debug("  & $$item{id} => $$item{text}");

	$index++;

	$finished = true if ( (! $lines[$index]) || ($lines[$index] =~ $token_re) || ($index > $#lines) );

	$self -> logger -> debug("  Test $lines[$index] => $finished");

	#push @items, {html => '', text => '</ul>'} if ($finished);
}

	$$item{html}	= "#$$pad{topic_html_ids}{$token} [topic]";
	$$item{text}	= $token;

	push @items, $item;

	$self -> logger -> debug("Pushed topic $$item{html}");
}

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/