I would like to use a Perl Module that takes a file handle as a parameter. It verifies it is passed a file handle using the code "if (ref($file) eq 'GLOB')". Instead of passing it a file handle, I would like to pass it an object of type IO::Uncompress::Bunzip2. This object behaves like a file handle and works perfectly with the module, if I modify its code to bypass the GLOB check. Is there a way I can modify my object such that ref() will return "GLOB" instead of "IO::Uncompress::Bunzip2"?
Thank you in advance for your assistance.