in reply to Re^2: Parsing XML in a __DATA__ Blockin thread Parsing XML in a __DATA__ Block
my $from_a_handle = (ref($from) ? (ref($from) eq 'GLOB' || UNIVERSAL::isa($from, 'GLOB') || UNIVERSAL::isa($from, 'IO::Handle')) : (ref(\$from) eq 'GLOB')); [download]