view release on metacpan or  search on metacpan

t/internals/pack_metadata.t  view on Meta::CPAN

      my $value = *{ $stash->{$key} }{HASH};
      $stash_contents->{ '%' . $key } = $value;
    }
  }

  return $stash_contents;
}

our $nfails;

sub my_subtest($$) {
  note "(fake)Subtest: $_[0]";
  local $nfails = 0;
  $_[1]->();
  note "End (fake)subtest: $_[0]";
  return is( $nfails, 0, "No failures in (fake)subtest $_[0]" );
}

my_subtest "empty args" => sub {
  my $ref = mk_pack( pack_metadata() );
  is_deeply( [ sort keys %{$ref} ], ['meta'], 'Only expected vars' ) || $nfails++;