Select Code to Download

sub skip_unless (&$$) {
    my ($test, $name, $tests_to_skip) = @_;
...
    skip "failed: $name", $tests_to_skip unless $passed;
    return $passed;
};

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