#  $Id: mark.pm,v 1.3 2005/08/13 16:31:48 jonas Exp $  -*-perl-*-
package Para::Frame::Action::find_cycle;
#=====================================================================
#
# DESCRIPTION
#   Paranormal.se debug find_cycle
#
# AUTHOR
#   Jonas Liljegren   <jonas@paranormal.se>
#
# COPYRIGHT
#   Copyright (C) 2004 Jonas Liljegren.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
#=====================================================================

use strict;
use Data::Dumper;
use Devel::Cycle;

use Para;

sub handler
{
    my( $req ) = @_;

    $Para::CLEAR_CACHE = 1;
    Para::clear_caches();

#    print "Para::Topic::CACHE\n";
#    find_cycle($Para::Topic::CACHE);
#    print "Para::Member::CACHE\n";
#    find_cycle($Para::Member::CACHE);
#    print "Para::Arc::CACHE\n";
#    find_cycle(\%Para::Arc::CACHE);
#    print "Para::Alias::CACHE\n";
#    find_cycle(\%Para::Alias::CACHE);

     return "Sent to STDERR";
}

1;