my %RPC_METHODS;

sub xmlrpc_methods { 
    my $package = shift;
    return keys %{ $RPC_METHODS{$package} };
}

sub xmlrpc : ATTR(CODE) { 
    my ( $package, $symbol ) = @_;
    my $name = *{$symbol}{NAME};
    $RPC_METHODS{$package}{$name} = 1;
}