avoid including source contents from @!parse directive (#1665)

# Description

Make the source contents of documented objects created in `@!parse`
directive the contents below the `@!parse` block.

# Completed Tasks

- [x] I have read the [Contributing Guide][contrib].
- [x] The pull request is complete (implemented / written).
- [x] Git commits have been cleaned up (squash WIP / revert commits).
- [x] I wrote tests and ran `bundle exec rake` locally (if code is
attached to PR).

[contrib]: https://github.com/lsegal/yard/blob/main/CONTRIBUTING.md

Author: UlyssesZh

lib/yard/tags/directives.rb

@@ -543,6 +543,7 @@ def readable?
     # @since 0.8.0
     class ParseDirective < Directive
       def call
+        existing = YARD::Registry.all.lazy.map(&:path).to_set if handler
         lang = tag.types ? tag.types.first.to_sym :
           (handler ? handler.parser.parser_type : :ruby)
         if handler && lang == handler.parser.parser_type
@@ -555,6 +556,12 @@ def call
           src_parser.file = handler.parser.file if handler
           src_parser.parse(StringIO.new(tag.text))
         end
+        return unless handler
+        YARD::Registry.all.each do |obj|
+          next if existing.include? obj.path
+          obj.files.each { |entry| entry[1] = handler.statement.line if entry[0] == handler.parser.file.to_s }
+          obj.source = handler.statement.source
+        end
       end
     end
 

spec/tags/directives_spec.rb

@@ -40,6 +40,7 @@ class A
       parser.file = "myfile.rb"
       parser.parse(StringIO.new(src))
       expect(Registry.at('A#foo').file).to eq 'myfile.rb'
+      expect(Registry.at('A#foo').source.strip).to eq 'eval "def foo; end"'
     end
   end
 end