or download this
ok( ! &working_l::setlist, "calling undefined routine fails" );
---
Undefined subroutine &working_l::setlist called at working.t line 33.
...
# Failed test 'calling undefined subs should not work'
# at C:/Dwimperl/perl/lib/Test/Builder.pm line 252.
# Tests were run but no plan was declared and done_testing() was not s
+een.