Select Code to Download

Select or download this

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

Select or download this

Bareword found where operator expected at /usr/lib/perl/5.8/Data/Dumpe
+r.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?)