home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Server / add_proc.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  1.1 KB  |  34 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Server.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Server;
  5.  
  6. #line 1086 "blib/lib/RPC/XML/Server.pm (autosplit into blib/lib/auto/RPC/XML/Server/add_proc.al)"
  7. ###############################################################################
  8. #
  9. #   Sub Name:       add_proc
  10. #
  11. #   Description:    This filters through to add_method, but unlike the other
  12. #                   front-ends defined later, this one may have to alter the
  13. #                   data in one type of calling-convention.
  14. #
  15. #   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
  16. #                   $self     in      ref       Object reference
  17. #                   $meth     in      scalar    Procedure to add
  18. #
  19. #   Returns:        threads through to add_method
  20. #
  21. ###############################################################################
  22. sub add_proc
  23. {
  24.     my ($self, $meth) = @_;
  25.  
  26.     # Anything else but a hash-reference goes through unaltered
  27.     $meth->{type} = 'procedure' if (ref($meth) eq 'HASH');
  28.  
  29.     $self->add_method($meth);
  30. }
  31.  
  32. # end of RPC::XML::Server::add_proc
  33. 1;
  34.