Module to help test exception based code in Perl