NAME

Dash::Leak - Track memory allocation

SYNOPSIS

Quick summary of what the module does.

BEGIN {
    # enables operation of Dash::Leak, leaksz is a nop without this
    $ENV{DEBUG_MEM} = 1;
}

use Dash::Leak;

{
    leaksz "block label";
    # some code, that may leak
}
# If your code leaked, you'll be noticed about change
# of process vsize after leaving block

leaksz "tests begin";
some_operation($arg);
leaksz "some_operation", sub {
    warn sprintf "We leaked after some_operation($arg) by %+d kilobytes;", shift
};
another_operation();
leaksz "another_operation";
# ...

use Dash::Leak sub { ... }; # Will call this cb for every alloc, instead of warn

EXPORT

Export of this module is "virtual", by using Devel::Declare. When $ENV{DEBUG_MEM} is true, it will work, when false, this opcodes will be ignored, like with leaksz ... if 0;

FUNCTIONS

leaksz $label, [$cb->($delta)]

Starts tracking current block. If something changed since last note, notice will be warned. If callback is passed, it will be invoked instead of warn.

ACKNOWLEDGEMENTS

• Thanks to knevgen (http://github.com/knevgen) for linux version patch

AUTHOR

Mons Anderson, <mons at cpan.org>

COPYRIGHT & LICENSE

Copyright 2010 Mons Anderson, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.