use strict;
use warnings;
use blib;
use TEST;
use Data::Dumper;
use Data::Structure::Util qw( has_circular_ref );


sub check_globals {
  my $package = shift || 'main';
  next_package($package);
}

sub next_package {
  my $pkg = shift;
  no strict 'refs';
  
  foreach my $key (%{"$pkg".'::'}) {
    next if ($key =~ /^\*/);
    if ($key =~ /(.+)\:\:$/) {
      if ($1 ne $pkg) {
        next_package($pkg . '::' . $1);
      }
    }

    my $scalar = ${"$pkg\::$key"};
    if (ref $scalar) {
      if (my $ref = has_circular_ref($scalar)) {
        warn "###### CIRCULAR REF DETECTED IN \$$pkg\::$key\n";
      }
    }
    
    my $hash = \%{"$pkg\::$key"};
    if (%$hash) {
      if (my $ref = has_circular_ref($hash)) {
        warn "###### CIRCULAR REF DETECTED IN \%$pkg\::$key\n";
      }
    }
  
    my $array = \@{"$pkg\::$key"};
    if (@$array) {
      if (my $ref = has_circular_ref($array)) {
        warn "###### CIRCULAR REF DETECTED IN \@$pkg\::$key\n";
      }
    }
  
  }
}

=head1 NAME

packages.pl

=head1 DESCRIPTION

Search through all the global variables in all packagse 
for any circular reference.

=cut