my $class = 'MyClass';
*CORE::GLOBAL::wantarray = sub {
	return CORE::wantarray(@_) if(!${"$class\::PRETEND_CONTEXT"});
	return 1 if(${"$class\::PRETEND_CONTEXT"} == 3);
	return 0 if(${"$class\::PRETEND_CONTEXT"} == 2);
	return undef if(${"$class\::PRETEND_CONTEXT"} == 1);
};
##</code><code>##

Bareword found where operator expected at /usr/lib/perl/5.8/Data/Dumper.pm line 267, near "$realtype = $realpack ? Scalar::Util::reftype"
  (Might be a runaway multi-line ?? string starting on line 237)
        (Missing operator before Scalar::Util::reftype?)