+my $test_sub = sub {
+ my $sub = shift;
+ my $stash;
+ if ($INC{'Test/Leaner.pm'}) {
+ $stash = \%Test::Leaner::;
+ } else {
+ require Test::More;
+ $stash = \%Test::More::;
+ }
+ return $stash->{$sub};
+};
+
+sub skip_all { $test_sub->('plan')->(skip_all => $_[0]) }