@{[ join("\n", map { $_->content } $para->children->@*) ]}

unshift @replacements, $prefix if defined $prefix;

@replacements;
};

sub __paras_for_num_marker { die "only support definition lists" } sub __paras_for_bul_marker { die "only support definition lists" }

around __paras_for_def_marker => sub { my ($orig, $self, $rest) = @_;

my $ffi = AI::TensorFlow::Libtensorflow::Lib->ffi;
my $type_library = 'AI::TensorFlow::Libtensorflow::Lib::Types';
my @types = ($rest);
my $process_type = sub {
  my ($type) = @_;
  my $new_type_text = $type;
  my $info;
  if( eval { $info->{TT} = t($type); 1 }
    || eval { $info->{FFI} = $ffi->type_meta($type); 1 } ) {
    if( $info->{TT} && $info->{TT}->library eq $type_library ) {
      $new_type_text = "L<$type|$type_library/$type>";
    }
  } else {
    die "Could not find type constraint or FFI::Platypus type $type";
  }

  $new_type_text;
};

my $type_re = qr{
  \A (?<ws>\s*) (?<type> \w+)
}xm;
$rest =~ s[$type_re]{$+{ws} . $process_type->($+{type}) }ge;

my @replacements = $orig->($self, $rest);

@replacements;
};

1;