view release on metacpan or  search on metacpan

bin/pmat-leakreport  view on Meta::CPAN

   $previous_svs = $svs;
}

$progress->() if $progress;

my $df = $pmat->dumpfile;

foreach my $svkey ( nsort_by { $candidates{$_} } keys %candidates ) {
   my $findex = $candidates{$svkey};
   my ( $addr ) = split m/:/, $svkey;
   my $sv = $df->sv_at( $addr );

   printf "LEAK[%d] %s\n",
      $findex, $sv->desc_addr;
}