#  $Id: symdump.pm,v 1.1 2005/11/16 03:19:44 jonas Exp $  -*-perl-*-
package Para::Frame::Action::symdump;
#=====================================================================
#
# DESCRIPTION
#   Paranormal.se symdump debug
#
# 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::Symdump;

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

    my $newdump = Devel::Symdump->rnew;
    warn $Para::symdump->diff($newdump)."\n";
    $Para::symdump = $newdump;
    

    return "Sent symdump to STDERR";
}

1;