package Foo::Bar;
  use base 'Foo';

  sub foosub {
    my $self = shift;
    my $FooObj = Some::Module->new;

    ... elsewhere ...

    barsub( \$FooObj );

    ... more code ...
  }

  sub barsub {
    # now, how do I access $FooObj
    # from here?
    my $FooObj = shift;  # ???
    $FooObj->some_method; 
    # results in: Can't call method "some_method" on 
    # unblessed reference at ...
  }