home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Function / is_valid.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  1.0 KB  |  31 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Function.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Function;
  5.  
  6. #line 264 "blib/lib/RPC/XML/Function.pm (autosplit into blib/lib/auto/RPC/XML/Function/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});
  27. }
  28.  
  29. # end of RPC::XML::Function::is_valid
  30. 1;
  31.