Per this message from Schwern (http://www.mail-archive.com/perl-qa@perl.org/msg03122.html) on how to trigger custom behavior for individual tests:
For individual failures, put a wrapper around Test::Builder->ok(). Use Hook::LexWrap, Sub::Uplevel or Aspects to preserve the call stack. Well, OK. So I tried it: use Test::More qw/no_plan/; use Test::Builder; use Hook::LexWrap; use Data::Dumper; wrap Test::Builder::ok pre => sub { die Dumper [EMAIL PROTECTED] }; ok 1, 'should be good'; is 2, 3, 'is 2 3 should be bad'; is 'foo', 'foo', 'and this should be good'; I must be missing something because that didn't die. It quite happily ran the tests. Can someone please tell me what I am missing? Cheers, Ovid ===== If this message is a response to a question on a mailing list, please send follow up questions to the list. Web Programming with Perl -- http://users.easystreet.com/ovid/cgi_course/
