The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestsFor::Fail;
use Test::Class::Moose;

sub test_a_good {
    ok 1;
}

sub test_a_bad {
    ok 0;
}

sub test_b_good {
    ok 1;
}

sub test_b_bad {
    ok 0;
}

1;