NAME
POE::Component::Hailo - A non-blocking wrapper around Hailo
SYNOPSIS
use strict;
use warnings;
use POE qw(Component::Hailo);
POE::Session->create(
package_states => [
(__PACKAGE__) => [ qw(_start hailo_learned hailo_replied) ],
],
);
POE::Kernel->run;
sub _start {
POE::Component::Hailo->spawn(
alias => 'hailo',
Hailo_args => {
storage_class => 'SQLite',
brain_resource => 'hailo.sqlite',
},
);
POE::Kernel->post(hailo => learn =>
['This is a sentence'],
);
}
sub hailo_learned {
POE::Kernel->post(hailo => reply => ['This']);
}
sub hailo_replied {
my $reply = $_[ARG0]->[0];
die "Didn't get a reply" if !defined $reply;
print "Got reply: $reply\n";
POE::Kernel->post(hailo => 'shutdown');
}
DESCRIPTION
POE::Component::Hailo is a POE component that provides a non-blocking wrapper around Hailo. It accepts the events listed under "INPUT" and emits the events listed under "OUTPUT".
METHODS
spawn
This is the constructor. It takes the following arguments:
'alias', an optional alias for the component's session.
'Hailo_args', a hash reference of arguments to pass to Hailo's constructor.
'options', a hash reference of options to pass to POE::Session's constructor.
session_id
Takes no arguments. Returns the POE Session ID of the component.
INPUT
This component reacts to the following POE events:
learn
train
reply
learn_reply
stats
save
All these events take two arguments. The first is an array reference of arguments which will be passed to the Hailo method of the same name. The second (optional) is a hash reference. You'll get this hash reference back with the corresponding event listed under "OUTPUT".
shutdown
Takes no arguments. Terminates the component.
OUTPUT
The component will post the following event to your session:
hailo_learned
hailo_trained
hailo_replied
hailo_learn_replied
hailo_stats
hailo_saved
ARG0
is an array reference of arguments returned by the underlying Hailo method. ARG1
is the context hashref you provided (if any).
AUTHOR
Hinrik Örn Sigurðsson, hinrik.sig@gmail.com
LICENSE AND COPYRIGHT
Copyright 2010 Hinrik Örn Sigurðsson
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.