#!/usr/bin/perl
package HELPER;
our @testCaseStack = ();
our $executedTestProcedures = 0;
sub handleResult($) {
    my ($result) = @_;
    # do some default outputs...
    $executedTestProcedures++;
    leaveTestRunner() if ($result>2);
    leaveTestCase() if ($result>1);
}
sub leaveTestcase {
    goto EXIT_TESTCASE; ##(3)##
}
sub leaveTestRunner {
    goto EXIT_TESTCASE; ##(3)##
}
1;