package Hailo::Role::Storage;
BEGIN {
  $Hailo::Role::Storage::AUTHORITY = 'cpan:AVAR';
}
BEGIN {
  $Hailo::Role::Storage::VERSION = '0.70';
}

use 5.010;
use Any::Moose '::Role';
use namespace::clean -except => 'meta';

has brain => (
    isa => 'Str',
    is  => 'rw',
);

has order => (
    isa => 'Int',
    is  => 'rw',
);

has hailo => (
    isa => 'HashRef',
    is  => 'ro',
    documentation => "Miscellaneous private callbacks that Hailo provides to communicate with it",
);

has tokenizer_class => (
    isa => 'Str',
    is  => 'rw',
);

requires 'ready';
requires 'initialized';
requires 'save';
requires 'start_learning';
requires 'stop_learning';
requires 'start_training';
requires 'stop_training';

sub save {
    # does nothing by default
    return;
}

1;

=encoding utf8

=head1 NAME

Hailo::Role::Storage - A role representing a L<Hailo|Hailo> storage backend

=head1 ATTRIBUTES

=head2 C<ready>

Ask the storage backend if it considers itself ready to go. E.g. a
storage that requires a C<brain> would return false if it wasn't
passed one.

=head2 C<initialized>

If you're connecting to an existing storage that already has a
populated schema and is ready to go this'll return true.

=head2 C<order>

The Markov order (chain length) being used.

=head2 C<brain>

The name of the resource (file name, database name) to use as storage.

=head1 METHODS

=head2 C<new>

This is the constructor. It accept the attributes specified in
L</ATTRIBUTES>.

=head2 C<save>

Saves the current state.

=head2 C<learn_tokens>

Learns from a sequence of tokens. Takes an array reference of strings.

=head2 C<make_reply>

Takes an (optional) array reference of tokens and returns a reply (arrayref
of tokens) that might be relevant.

=head2 C<token_total>

Takes no arguments. Returns the number of tokens the brain knows.

=head2 C<expr_total>

Takes no arguments. Returns the number of expressions the brain knows.

=head2 C<start_learning>

Takes no arguments. This method is called by L<Hailo|Hailo> right before learning
begins.

=head2 C<stop_learning>

Takes no arguments. This method is called by L<Hailo|Hailo> right after learning
finishes.

=head2 C<start_training>

Takes no arguments. This method is called by L<Hailo|Hailo> right before training
begins.

=head2 C<stop_training>

Takes no arguments. This method is called by L<Hailo|Hailo> right after training
finishes.

=head1 AUTHOR

Hinrik E<Ouml>rn SigurE<eth>sson, hinrik.sig@gmail.com

=head1 LICENSE AND COPYRIGHT

Copyright 2010 Hinrik E<Ouml>rn SigurE<eth>sson

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

=cut