That seems like a roundabout way of doing it. Instead, it would probably be easier to use your handler to maintain a table of available methods. The following is untested but should be close:
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; }
In reply to Re: Trying to figure out subroutine attributes
by friedo
in thread Trying to figure out subroutine attributes
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |