use B;

$\="\n";

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

# line 99 'bin/some_code.pl'
print "some_sub: ",B::svref_2object(\&Foo::some_sub)->GV->LINE;
{
    no strict 'refs';
    print "some_other_sub: ",B::svref_2object(\*{'Foo::some_other_sub'})->LINE;
}
Foo::some_sub();
__END__
some_sub: 25
some_other_sub: 102
Got to here at 'bin/some_file.pl' line 24.