#!/usr/bin/perl
package Persistent::Hash::Dumper;

use strict;
use Carp;

use base qw(Data::Dumper);


sub _dump 
{
	my $s = shift;
	my ($val,$name) = @_;

  my($sname);
  my($out, $realpack, $realtype, $type, $ipad, $id, $blesspad);

  $type = ref $val;
  $out = "";


	if ($type) 
	{
    # prep it, if it looks like an object\
	 #XXX Modified here.
		if ($type !~ /^[A-Z]*$/) 
		{
      	my $freezer = $s->{freezer};
     		if ($freezer && UNIVERSAL::can($val, $freezer))
      	{
         	my $ret = $val->$freezer();
        		return $ret;
      	}
    	}
	}

	return $s->SUPER::_dump(@_);
}

666;