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