view release on metacpan or  search on metacpan

t/Devel-Arena.t  view on Meta::CPAN

	ok($stats->{PVX}{$type}{$key}, qr/^\d+$/);
    }
}

ok($stats->{PVX}{normal}{allocated}
   > $stats->{PVX}{normal}{total} + $stats->{PVX}{normal}{'length'});
ok($stats->{PVX}{'shared hash key'}{allocated} == 0) if $] >= 5.008;

sub oryx () {
  # Our filename
  (caller)[1];
}
sub klortho ($@%) {
}

ok($stats->{types}{PVCV}{prototypes}{''}, qr/^\d+$/);
ok($stats->{types}{PVCV}{prototypes}{'$@%'}, qr/^\d+$/);

foreach my $type (qw(PVCV PVFM)) {
  ok(ref $stats->{types}{$type}{files}, 'HASH');
  my $fail = 0;