Commit | Line | Data |
---|---|---|
a2434aab | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strictures 1; | |
4 | use Object::Remote::Connector::UNIX; | |
5 | use Object::Remote; | |
6 | ||
7 | my $c = Object::Remote::Connector::UNIX->new->connect($ARGV[0]); | |
8 | ||
ffc818dd | 9 | $c->register_class_class_handler; |
a2434aab | 10 | |
ffc818dd | 11 | $c->remote_object(id => 'master')->register_slave( |
a2434aab | 12 | pid => $$, |
13 | argv => \@ARGV | |
14 | )->run; |