[Israel.pm] Testing problem

[Thomas Maier]

Hi all,
I have method like this:
 
sub method 
{
	my ($self, at param) = @_;
	$pid = open $fh,"-|","command @param";
	$x = do something with $fh;
	return $x;
}

I would like to test this method but without
actually running the 'command'. Is that anyway
to mock this thing in case that I can't fake the
'command' it self ? (Perl 5.8.0 + Linux)

Thanks,
Thomas.