view release on metacpan or  search on metacpan

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

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
$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();