Symbol table inquiry for registering rpc calls

register_rpc

sub register_rpc {
    my $symbol = { eval( '%' . caller . "::" ) };
    my @RPC_PUBLIC;
    foreach my $entry ( keys %{$symbol} ) {
        no strict 'refs';
        if ( defined &{ caller . "::$entry" } ) {
            push( @RPC_PUBLIC, $entry ) if $entry =~ /^\_/;

        }
    }
    use strict 'refs';
    caller->register_rpc_method_names(@RPC_PUBLIC);
}