File Coverage

blib/lib/RPC/Simple/AnyWhere.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	6	83.3
pod			n/a
total	29	35	82.8

package RPC::Simple::AnyWhere;

use strict;
use Carp ;
use vars qw($VERSION $AUTOLOAD @RPC_SUB %_RPC_SUBS);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

( $VERSION ) = '$Revision: 1.6 $ ' =~ /\$Revision:\s+([^\s]+)/;

# Preloaded methods go here.

# We may need a mechanism to declare the functions vailable on the remote
# side

sub _searchSubs
  {
    my $self = shift ;
    my $package = shift ;

    push @{$_RPC_SUBS{ref($self)}}, eval("\@${package}::RPC_SUB") ;

    foreach my $class (eval("\@${package}::ISA"))
      {
        $self->_searchSubs($class) ;
      }
  }

sub AUTOLOAD
  {
    my $self = shift ;

    my $called = $AUTOLOAD ;
    $called =~ s/.*::// ;

    if (defined $_RPC_SUBS{ref($self)} and
        scalar grep ($called eq $_,@{$_RPC_SUBS{ref($self)}} ))
      {
        $self->{_twinHandle}->delegate($called,@_) ;
        return $self ;
      }

	croak "Undefined subroutine $AUTOLOAD called";
  }

sub DESTROY
  {
    my $self = shift ;
    print "class ",ref($self)," destroyed \n";
  }

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__