NAME

POEIKCdaemon - POE IKC daemon

SYNOPSIS

poeikcd start -p=54321 # or   poeikcd start --port=54321
poeikcd stop  -p=54321 # or   poeikcd stop  --port=54321
#
perl -MPOEIKCdaemon -e POEIKCdaemon::daemon 54321 >> /tmp/poeikcd_log 2>&1 &

And then

use POE::Component::IKC::ClientLite;
use Data::Dumper;

my $host = '127.0.0.1';
my $port = $ARGV[0] || 54321;

print scalar localtime,"\n";
printf "[ %s : %s ]\n", $host, $port;
my ($name) = $0 =~ /(\w+)\.\w+/;
$name .= $$;
my $ikc = create_ikc_client(
	ip => $host,
	port => $port,
	name => $name,
);
my $ret;
$ikc or die sprintf "%s\n\n",$POE::Component::IKC::ClientLite::error;
$ret = $ikc->post_respond('POEIKCd/method_respond' => 
	['Cwd' => 'getcwd']
);
$ikc->error and die($ikc->error);
print Dumper $ret;

$ikc or die sprintf "%s\n\n",$POE::Component::IKC::ClientLite::error;
$ret = $ikc->post_respond('POEIKCd/method_respond' => 
	['MyClass' => 'my_method', 'args1', 'args2', 'args3 ..' ]
);
$ikc->error and die($ikc->error);
print Dumper $ret;

$ikc or die sprintf "%s\n\n",$POE::Component::IKC::ClientLite::error;
$ret = $ikc->post_respond('POEIKCd/method_respond' => 
	['POEIKCdaemon::Utility'=> 'reload', 'MyClass'=> 'my_method']
);
$ikc->error and die($ikc->error);
print Dumper $ret;

$ikc or die sprintf "%s\n\n",$POE::Component::IKC::ClientLite::error;
$ret = $ikc->post_respond('POEIKCd/method_respond' => 
	['POEIKCdaemon::Utility' => 'stop']
);
$ikc->error and die($ikc->error);
print Dumper $ret;

DESCRIPTION

POEIKCdaemon is daemon of POE::Component::IKC

AUTHOR

Yuji Suzuki <yuji.suzuki.perl@gmail.com>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

POE::Component::IKC::ClientLite