foo($obj);
  $obj->foo();

##</code><code>##

    print join("\t",ref(\[]),ref(\"foo"),ref(\*glob),ref(\do{my $x=*foo}));
    # REF	SCALAR	GLOB	GLOB