view release on metacpan or  search on metacpan

lib/Claude/Agent/CLI.pm  view on Meta::CPAN

    spinner        - Spinner style (default: 'dots')
                     Available: dots, bar, around, pipe, moon, circle,
                     color_circle, color_circles, color_square, color_squares,
                     earth, circle_half, clock, pong, material
    spinner_color  - Color for spinner (default: 'cyan')
                     Available: black, red, green, yellow, blue, magenta, cyan, white
                     Also: bright_* variants, and "color on_background" combinations
    message        - Custom message format (default: "{spinner} $message")
                     Placeholders: {spinner}, {elapsed}, {percent}, etc.
    interval       - Animation interval in seconds (default: 0.1)
    terminal_line  - Skip STDIN cursor query by providing line number

    use IO::Async::Loop;
    my $loop = IO::Async::Loop->new;

    # Simple usage
    my $spinner = start_spinner("Processing...", $loop);

    # Customized spinner
    my $spinner = start_spinner("Loading...", $loop,
        spinner       => 'moon',

lib/Claude/Agent/CLI.pm  view on Meta::CPAN

=cut

sub clear_line {
    print "\r\033[K";
}

=head3 move_up

    move_up($n);

Move cursor up N lines.

=cut

sub move_up {
    my ($n) = @_;
    $n //= 1;
    print "\033[${n}A";
}

=head1 DEPENDENCIES