File Coverage

blib/lib/Eliza/Chatbot/Option.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	24	30	80.0

package Eliza::Chatbot::Option;

use Moo;
use MooX::LazierAttributes;
use Eliza::Chatbot::ScriptParser;

attributes (
    [qw/script_file debug_text transform_text botprompt userprompt/] => [ rw, '', {lzy}],
    [qw/prompts_on memory_on likelihood_of_using_memory/] => [ rw, 1, {lzy}],
    name => [ rw, 'Eliza', {lzy}],
    debug => [rw, 0, {lzy}],
    max_memory_size => [rw, 5, {lzy}],
    memory => [rw, [ ], {lzy}],
    data => [ro, nan, {lzy, bld}]
);

sub _build_data {
    my $self = shift;
    my $parser = Eliza::Chatbot::ScriptParser->new(script_file => $self->script_file);
    $parser->parse_script_data;
    return $parser;
}

sub myrand {
    my ($self, $max) = @_;
    my $n = defined $max ? $max : 1;
    return rand($n);
}

sub welcome_message {
    my $self = shift;
    my $initial = $self->data->initial;
    return $initial->[ $self->myrand( scalar @{$initial} ) ];
}

1;

__END__