use B;

$\="\n";

# line 99 'bin/some_code.pl'
{
    no strict 'refs';
    print B::svref_2object(eval q(\\*{'Foo::some_sub'}))->LINE;
    print B::svref_2object(eval q(\\&Foo::some_sub))->GV->LINE;
}
eval q{Foo::some_sub()};

package Foo;
# line 23 'bin/some_file.pl'
sub some_sub {
    warn "Got to here";
}
__END__
25
25
Got to here at 'bin/some_file.pl' line 24.