#perl -T
BEGIN{
  use lib 't';
};

use MyTestFramework;

# skips all tests if one dependency was't found
check_dependencies();

register_features({
    A => 72,
    B => 148,
    C => 43,
    D => 34,
});

my $obj = MyModule->new();

while (my $feature = next_feature) {
    skip_feature if $obj->does_not_like($feature->name);
    # the tests
    ...
    # dies if number of tests for feature is not correct
}    

delete_temporary_files();