Tap::simpleoutput provides one function, counters(), that returns a number of simple closures designed to help output tap easily and correctly, with a minimum of fuss.

tap is the test anything protocol used to perl and other languages to communicate results between unit tests and the test harness.