sub skip_unless (&$$) {
    my ($test, $name, $tests_to_skip) = @_;
    local $Test::Builder::Level = $Test::Builder::Level+1;
    my $passed;
    my $ok = \&Test::Builder::ok;
    {
        no warnings;
        local *Test::Builder::ok = sub {
            $_[2] = $name unless defined $_[2];
            $ok->(@_);
        };
        use warnings;
        $passed = $test->();
    };
    skip "failed: $name", $tests_to_skip unless $passed;
    return $passed;
};

##</code><code>##

skip_unless { ok $mech->is_html } 'Returns HTML', 3;
....
skip_unless { is $foo, $bar } 'foo == bar', 3;
...