File Coverage

blib/lib/Eliza/Chatbot.pm

Criterion	Covered	Total	%
statement	29	55	52.7
branch	2	18	11.1
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	42	85	49.4

package Eliza::Chatbot;

use strict;
use warnings;

use Moo;
use MooX::LazierAttributes;
use Eliza::Chatbot::Option;
use Eliza::Chatbot::Brain;
use Const::XS qw/const/;
our $VERSION = '0.12';

const our @user_options => qw(name script_file debug prompts_on memory_on);

attributes (
    [@user_options] => [rw],
    brain => [rw, nan, { lzy, bld }],
);

sub _build_brain {
    my $self = shift;
    my $options = Eliza::Chatbot::Option->new();
    foreach my $field (@user_options) {
        if (my $val = $self->$field) {
            $options->$field($val);
        }
    }
    return Eliza::Chatbot::Brain->new(options => $options);
}

sub command_interface {
    my $self = shift;
    my ($reply, $previous_user_input, $user_input) = "";

    my $options = $self->brain->options;
    $options->botprompt($options->name . ":\t");
    $options->userprompt("you:\t");

    # Seed the rand number generator.
    srand( time() ^ ($$ + ($$ << 15)) );

    # print the Eliza prompt
    print $options->botprompt if $options->prompts_on;

    # print an initial greeting
    print $options->welcome_message . "\n";

    while (1) {
        print $options->userprompt if $options->prompts_on;

        $previous_user_input = $user_input;
        chomp( $user_input =  );

        # If the user enters the work "debug",
        # the toggle on/off Eliza's debug output.
        if ($user_input eq "debug") {
            $options->debug( ! $options->debug );
            $user_input = $previous_user_input;
        }

        # If the user enters the word "memory"
        # then use the _debug_memory method to dump out
        # the current contents of Eliza's memory
        if ($user_input =~ m{memory|debug memory}xms) {
            print $self->brain->_debug_memory();
            redo;
        }

        # If the user enters the word "debug that"
        # the dump out the debugging of the most recent
        # call to transform
        if ($user_input eq "debug that") {
            print $options->debug_text;
            redo;
        }

        # Invoke the transform method to generate a reply
        $reply = $self->brain->transform($user_input, '');

        # Print out the debugging text if debugging is set to on.
        # This variable should have been set by the transform method
        print $options->debug_text if $self->debug;

        # print the actual reply
        print $options->botprompt if $options->prompts_on;
        print sprintf("%s\n", $reply);

        last if $self->brain->last;
   }
}

sub instance {
    my ($self, $user_input) = @_;
    return $self->brain->transform($user_input, '');
}

1;

__END__