This situation looks a bit odd. Why are you creating another object inside a method call and using that as an argument to another method?

You don't need to create a reference to your $FooObj reference, so you can lose the backslash in front of it when you call barsub. If you are seeing odd behaviour, ensure $FooObj is actually an object.

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

  sub foosub {
    my $self   = shift;
    my $FooObj = Some::Module->new;
    die "Not an object!" unless ref $FooObj eq 'Some::Module';

    $self->barsub( $FooObj );
    }

  sub barsub {
    my $self   = shift;
    my $FooObj = shift;
    
    ...
    }
[download]