module Thor::Util

def thor_classes_in(klass)
  stringfied_constants = klass.constants.map(&:to_s)
  Thor::Base.subclasses.select do |subclass|
    next unless subclass.name
    stringfied_constants.include?(subclass.name.gsub("#{klass.name}::", ""))
  end
end