Devel::Cycle 1.07

Devel::Cycle is a Perl module that helps you to find memory cycles in objects.

SYNOPSIS

#!/usr/bin/perl
use Devel::Cycle;
my $test = {fred => [qw(a b c d e)],
ethel => [qw(1 2 3 4 5)],
george => {martha => 23,
agnes => 19}
};
$test->{george}{phyllis} = $test;
$test->{fred}[3] = $test->{george};
$test->{george}{mary} = $test->{fred};
find_cycle($test);
exit 0;

# output:

Cycle (1):
$A->{george} => %B
$B->{phyllis} => %A

Cycle (2):
$A->{george} => %B
$B->{mary} => @A
$A->[3] => %B

Cycle (3):
$A->{fred} => @A
$A->[3] => %B
$B->{phyllis} => %A

Cycle (4):
$A->{fred} => @A
$A->[3] => %B
$B->{mary} => @A

# you can also check weakened references
weaken($test->{george}->{phyllis});
find_weakened_cycle($test);
exit 0;

# output:

Cycle (1):
$A->{george} => %B
$B->{mary} => @C
$C->[3] => %B

Cycle (2):
$A->{george} => %B
w-> $B->{phyllis} => %A

Cycle (3):
$A->{fred} => @C
$C->[3] => %B
$B->{mary} => @C

Cycle (4):
$A->{fred} => @C
$C->[3] => %B
w-> $B->{phyllis} => %A