Select Code to Download

    eval "sub ${caller_package}::DEBUG () { $debug_value }";

        # see if said method wasn't just imported from elsewhere
        my $glob = do { no strict 'refs'; \*{$sym} };
...
        # in 5.005 this flag is not exposed via B, though it exists
        my $imported_cv = eval { B::GVf_IMPORTED_CV() } || 0x80;
        next if $o->GvFLAGS & $imported_cv;

    eval "sub DEBUG () { $debug_value }";
    *{ join('::', $caller_package, 'DEBUG') } = \&DEBUG;