{
    no strict 'refs';
    my $name = 'Foo::some_sub';
    print B::svref_2object(\*$name)->LINE;
    print B::svref_2object(\&$name)->GV->LINE;
    $name->();
}

##</code><code>##

my $glob = $::{'Foo::'}{some_sub};
print B::svref_2object(\*$glob)->LINE;
print B::svref_2object(\&$glob)->GV->LINE;
$glob->();