Perl memory usage profiling and leak detection?

by

You could have a circular reference in one of your objects. When the garbage collector comes along to deallocate this object, the circular reference means that everything referred to by that reference will never get freed. You can check for circular references with Devel::Cycle and Test::Memory::Cycle. One thing to try (although it might get expensive in production code, so I’d disable it when a debug flag is not set) is checking for circular references inside the destructor for all your objects:

# make this be the parent class for all objects you want to check;
# or alternatively, stuff this into the UNIVERSAL class's destructor
package My::Parent;
use strict;
use warnings;
use Devel::Cycle;   # exports find_cycle() by default

sub DESTROY
{
    my $this = shift;

    # callback will be called for every cycle found
    find_cycle($this, sub {
            my $path = shift;
            foreach (@$path)
            {
                my ($type,$index,$ref,$value) = @$_;
                print STDERR "Circular reference found while destroying object of type " .
                    ref($this) . "! reftype: $type\n";
                # print other diagnostics if needed; see docs for find_cycle()
            }
        });

    # perhaps add code to weaken any circular references found,
    # so that destructor can Do The Right Thing
}

More Related Contents:

  1. What is private bytes, virtual bytes, working set?
  2. Python memory leaks [closed]
  3. How can I find memory leaks in long-running Perl program?
  4. How can I convert my shell script to Perl? [closed]
  5. How to re-direct the contents to a file instead of printing it to terminal
  6. How do I remove duplicate items from an array in Perl?
  7. What is the difference between library files and modules?
  8. How do I read in the contents of a directory in Perl?
  9. How can I pass command-line arguments to a Perl program?
  10. What’s the best way to make a deep copy of a data structure in Perl?
  11. Is there a good Valgrind substitute for Windows?
  12. What is the difference between new Some::Class and Some::Class->new() in Perl?
  13. Why can’t I match my string from standard input in Perl?
  14. How do I choose a package name for a custom Perl module that does not collide with builtin or CPAN packages names?
  15. Delete ClearCase Views Script
  16. How to pass a variable from a child process (fork by Parallel::ForkManager)?
  17. What’s the difference between single and double quotes in Perl?
  18. How do I get the full path to a Perl script that is executing?
  19. Perl subroutine arguments
  20. dynamically allocated memory after program termination
  21. What does the function declaration “sub function($$)” mean?
  22. How to create recursive hash of hash ? (With unlimited deep)
  23. How can I call a shell command in my Perl script?
  24. Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus)
  25. How do I break out of a loop in Perl?
  26. Hidden features of Perl?
  27. “inappropriate ioctl for device”
  28. How can I verify that a value is present in an array (list) in Perl?
  29. Perl Subroutine Prototyping — The correct way to do it
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment