sub.p6

sub find-references(:$pod, :$url, :$origin, :@refs = []) is export {
    if $pod ~~ Pod::FormattingCode && $pod.type eq 'X' {
        my $index-name-attr = "";
        my $index-text = recurse-until-str($pod).join;
        my @indices = $pod.meta;
        $index-name-attr = qq[index-entry{@indices ?? '-' !! ''}{@indices.join('-')}{$index-text ?? '-' !! ''}$index-text]
                           .subst('_', '__', :g).subst(' ', '_', :g).subst('%', '%25', :g).subst('#', '%23', :g);

       @refs.push: create-references(:$pod, :$origin, url => $url ~ '#' ~ $index-name-attr).Slip;
    }
    elsif $pod.?contents {
        for $pod.contents -> $sub-pod {
            find-references(:pod($sub-pod), :$url, :$origin, :@refs) if $sub-pod ~~ Pod::Block;
        }
    }
}