code => sub {
                my ($target) = @_;
                my ($module, $fragment) = split /#/, $target;
                my $u = URI->new(sprintf 'https://metacpan.org/module/%s', $module);
                $u->fragment($fragment) if $fragment;
                return $u->as_string;
            },