view release on metacpan or  search on metacpan

lib/Net/Prometheus/PerlCollector.xs  view on Meta::CPAN

MODULE = Net::Prometheus::PerlCollector    PACKAGE = Net::Prometheus::PerlCollector

void
count_heap(detail)
    int detail
INIT:
    SV *arena;
    STRLEN arenas = 0, svs = 0;
    HV *svs_by_type = NULL, *svs_by_class = NULL;
PPCODE:
    if(detail)
      svs_by_type = newHV();
    if(detail > 1)
      svs_by_class = newHV();

    for(arena = PL_sv_arenaroot; arena; arena = (SV *)SvANY(arena)) {
      const SV *arenaend = &arena[SvREFCNT(arena)];
      SV *sv;

      arenas++;