Du meinst, wieviele Zeilen während der Laufzeit durchlaufen werden? Das könnte man mit Devel::Trace und einem geeigneten grep+wc machen.