Which would work fine, except there is no skip() function in Test::Unit::TestCase.

$ ( perldoc -m Test::Unit ; perldoc -m Test::Unit::TestCase ;       \
  perldoc -m Test::Unit::TestSuite; perldoc -m Test::Unit::Runner;  \
  perldoc -m Test::Unit::Assert ; perldoc -m Test::Unit::Tutorial ; \
  perldoc -m Test::Unit::Test ; perldoc -m Test::Unit::Loader )     \
  | grep -i skip
            debug(sprintf "skipping %s\n", $t->name());
$
[download]