Property definitions

nitc $ CNOAA :: defaultinit
# MClass metric: Number of Abstract Class Ancestors
#
# Count only absrtract classes
class CNOAA
	super MClassMetric
	super IntMetric
	redef fun name do return "cnoaa"
	redef fun desc do return "number of abstract class ancestors"

	redef fun collect(mclasses) do
		for mclass in mclasses do
			var count = 0
			for parent in mclass.in_hierarchy(mainmodule).greaters do
				if parent == mclass then continue
				if parent.kind == abstract_kind then
					count += 1
				end
			end
			values[mclass] = count
		end
	end
end
src/metrics/inheritance_metrics.nit:358,1--379,3