CODE PASSED TO EVAL:
package LanX {
$\="\n";

        sub show {

            print join "\t",(caller(0))[0..3];

        };

        *func = \&show;
}


PACKAGE: main::LanX:: (2 names defined)

-----------------------------------------------------------------------
main::LanX::func
-----------------------------------------------------------------------

        scalar  x
        array
        hash
        code    x
        io
        format
        name    x
        package x

-----------------------------------------------------------------------
main::LanX::show
-----------------------------------------------------------------------

        scalar  x
        array
        hash
        code    x
        io
        format
        name    x
        package x



Package Gymnasium>inspect LanX show code

main::LanX::show {CODE} slot


main    namespacetest10.pl      100     LanX::show
main    namespacetest10.pl      100     LanX::show
1




Package Gymnasium>inspect LanX func code

main::LanX::func {CODE} slot


main    namespacetest10.pl      100     LanX::show
main    namespacetest10.pl      100     LanX::show
1