File Coverage

blib/lib/Persistent/Hash/Dumper.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod			n/a
total	12	35	34.2

#!/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;