view release on metacpan or  search on metacpan

lib/Devel/Valgrind/Client.pm  view on Meta::CPAN

$VERSION = eval $VERSION;

require XSLoader;
XSLoader::load('Devel::Valgrind::Client', $VERSION);

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(is_in_memcheck count_leaks do_leak_check do_quick_leak_check leak_check);

sub leak_check(&) {
  my $code = shift;

  do_quick_leak_check();
  my $start = count_leaks();

  $code->();

  do_quick_leak_check();
  my $end = count_leaks();