View difference between Paste ID: Bp5e4quJ and 5sNGkFRE

 require 'pp'
 
 def parse_class_info(instruction_sequence)
   classes = []
 
-  find_classes = proc do |instructions, parent, index|
+  find_classes = proc do |instructions, parent, index, parent_class|
     next unless instructions.is_a? Array
     if instructions[0] == :defineclass
       _, class_name, class_info = instructions
-      info = { type: class_info[5][/\<([^:]+)/, 1], name: class_name }
+      class_name = :"#{parent_class}::#{class_name}" if parent_class
       info = { type: class_info[5][/\<([^:]+)/, 1].to_sym, name: class_name }
-      instruction, argument = parent[index - 3]
+
-      info[:super_class] = argument if instruction == :getconstant
+      if index
         instruction, argument = parent[index - 3]
-      class_body.each {|instruction| find_classes.(instruction, class_body) }
+        info[:super_class] = argument if instruction == :getconstant
       end
-      instructions.each_with_index {|instruction, i| find_classes.(instruction, instructions, i) }
+
       class_body.each {|instruction| find_classes.(instruction, class_body, nil, class_name) }
     else
       instructions.each_with_index {|instruction, i| find_classes.(instruction, instructions, i, parent_class) }
     end
   end
 
   find_classes.(instruction_sequence.to_a, nil)
 
   classes
 end
 
 file_contents = <<-RUBY
 class TestModule < SuperClass
   foo
-  bar
+
 
 module TestMod
   class TestClass < Super
     class AnotherNestedClass
     end
   end
 end
-pp parse_class_info RubyVM::InstructionSequence.compile(file_contents)
+
 class TestClass2
   foo_bar
 end
 RUBY
 
 pp parse_class_info RubyVM::InstructionSequence.compile(file_contents)
 
 #[{:type=>:class, :name=>:TestModule, :super_class=>:SuperClass},
 # {:type=>:module, :name=>:TestMod},
 # {:type=>:class, :name=>:"TestMod::TestClass"},
 # {:type=>:class, :name=>:"TestMod::TestClass::AnotherNestedClass"},
 # {:type=>:class, :name=>:TestClass2}]