- for (@not_imported, grep !$imported{$_}, @default_exports) {
- Test::More::ok(!exists $this_stash->{$_}, "$_ was not imported");
- }
- for (grep $imported{$_}, @default_exports) {
- my $code = get_subroutine($this_stash, $_);
- Test::More::ok($code, "$_ was imported");
+
+SKIP:
+ {
+ local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
+ Test::More::skip($_[2] => @not_imported + @default_exports) if defined $_[2];
+
+ for (@not_imported, grep !$imported{$_}, @default_exports) {
+ Test::More::ok(!exists $this_stash->{$_}, "$_ was not imported");
+ }
+ for (grep $imported{$_}, @default_exports) {
+ my $code = get_subroutine($this_stash, $_);
+ Test::More::ok($code, "$_ was imported");
+ }