Select Code to Download

    sub oogle {
        my $self = shift;
...
        # Mark it as very, very, very, do not touch at all private:  
        $self -> {_________________furble} ++;
    }

    sub habar {
        my $self = shift;
        $self -> {_________________furble} = 0;
    }

    package My::Package {
        my %furble;
...
            $furble {$self} ++;
        }
    }