File Coverage

blib/lib/SignalWire/Agents/Skills/Builtin/InfoGatherer.pm

Criterion	Covered	Total	%
statement	31	38	81.5
branch	4	4	100.0
condition	7	12	58.3
subroutine	10	12	83.3
pod	0	4	0.0
total	52	70	74.2

package SignalWire::Agents::Skills::Builtin::InfoGatherer;
use strict;
use warnings;
use Moo;
use JSON qw(encode_json);
extends 'SignalWire::Agents::Skills::SkillBase';

use SignalWire::Agents::Skills::SkillRegistry;
SignalWire::Agents::Skills::SkillRegistry->register_skill('info_gatherer', __PACKAGE__);

has '+skill_name'        => (default => sub { 'info_gatherer' });
has '+skill_description' => (default => sub { 'Gather answers to a configurable list of questions' });
has '+supports_multiple_instances' => (default => sub { 1 });

sub setup { 1 }

sub register_tools {
    my ($self) = @_;
    my $prefix    = $self->params->{prefix} // '';
    my $questions = $self->params->{questions} // [];

    my $start_name  = $prefix ? "${prefix}_start_questions" : 'start_questions';
    my $submit_name = $prefix ? "${prefix}_submit_answer"   : 'submit_answer';

    $self->define_tool(
        name        => $start_name,
        description => 'Start the question-gathering process and return the first question',
        parameters  => { type => 'object', properties => {} },
        handler     => sub {
            my ($args, $raw) = @_;
            require SignalWire::Agents::SWAIG::FunctionResult;
            my $first = $questions->[0]{question_text} // 'No questions configured';
            return SignalWire::Agents::SWAIG::FunctionResult->new(
                response => $first,
            );
        },
    );

    $self->define_tool(
        name        => $submit_name,
        description => 'Submit an answer to the current question',
        parameters  => {
            type       => 'object',
            properties => {
                answer            => { type => 'string',  description => 'The answer' },
                confirmed_by_user => { type => 'boolean', description => 'Whether user confirmed' },
            },
            required => ['answer'],
        },
        handler => sub {
            my ($args, $raw) = @_;
            require SignalWire::Agents::SWAIG::FunctionResult;
            return SignalWire::Agents::SWAIG::FunctionResult->new(
                response => "Answer recorded: $args->{answer}",
            );
        },
    );
}

sub get_global_data {
    my ($self) = @_;
    my $ns = $self->params->{prefix} // 'info_gatherer';
    return {
        $ns => {
            questions      => $self->params->{questions} // [],
            question_index => 0,
            answers        => [],
        },
    };
}

sub _get_prompt_sections {
    my ($self) = @_;
    my $key = $self->params->{prefix} // 'info_gatherer';
    return [{
        title => "Info Gatherer ($key)",
        body  => 'Ask the user a series of questions and collect their answers.',
        bullets => [
            'Ask questions one at a time',
            'Wait for the user to answer before proceeding',
            'Confirm answers when required',
        ],
    }];
}

sub get_parameter_schema {
    return {
        %{ SignalWire::Agents::Skills::SkillBase->get_parameter_schema },
        questions          => { type => 'array',  required => 1, description => 'List of question objects' },
        prefix             => { type => 'string', description => 'Prefix for tool names' },
        completion_message => { type => 'string', description => 'Message after all questions answered' },
    };
}

1;