home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Procedure / is_valid.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  1.1 KB  |  32 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Procedure.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Procedure;
  5.  
  6. #line 636 "blib/lib/RPC/XML/Procedure.pm (autosplit into blib/lib/auto/RPC/XML/Procedure/is_valid.al)"
  7. ###############################################################################
  8. #
  9. #   Sub Name:       is_valid
  10. #
  11. #   Description:    Boolean test to tell if the calling object has sufficient
  12. #                   data to be used as a server method for RPC::XML::Server or
  13. #                   Apache::RPC::Server.
  14. #
  15. #   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
  16. #                   $self     in      ref       Object to test
  17. #
  18. #   Returns:        Success:    1, valid/complete
  19. #                   Failure:    0, invalid/incomplete
  20. #
  21. ###############################################################################
  22. sub is_valid
  23. {
  24.     my $self = shift;
  25.  
  26.     return ((ref($self->{code}) eq 'CODE') and $self->{name} and
  27.             (ref($self->{signature}) && scalar(@{$self->{signature}})));
  28. }
  29.  
  30. # end of RPC::XML::Procedure::is_valid
  31. 1;
  32.