File Coverage

blib/lib/Object/Signature.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	26	26	100.0

package Object::Signature;

use 5.005;
use strict;
use Storable    2.11 ();
use Digest::MD5 2.00 ();

use vars qw{$VERSION};
BEGIN {
	$VERSION = '1.07';
}

sub signature {
	local $Storable::canonical = 1;
	Digest::MD5::md5_hex(
		Storable::nfreeze(shift)
		);
}

1;

__END__