view release on metacpan or  search on metacpan

lib/Data/Differences.pm  view on Meta::CPAN

	#t
	#t we can get here with a reference to an empty hash.
	#t without the eval below, we get the perl error
	#t 'Not a SCALAR reference'.  I simply added the
	#t eval {} statement to allow to continue the other
	#t developments.  I inspected via the debugger the
	#t correctness of the software under test,
	#t I am not sure of the correctness of the testing
	#t software.  Given the fact that this eval {} statement
	#t also hides a number of warnings, I suspect so far
	#t unforeseen scenarios that might popup as bugs of
	#t the testing software.

	eval
	{
#  	    if (defined ${$self->{$key}})
	    if (defined $self->{$key})
	    {
		if ($self->{$key}->filter())
		{
		    $is_empty = 0;