view release on metacpan or  search on metacpan

bin/acme_claude_shell  view on Meta::CPAN

sub show_version {
    my $c = $opts{'color'};
    if ($c) {
        print colored(['bold', 'cyan'], "Acme::Claude::Shell"), " version $VERSION\n";
    } else {
        print "Acme::Claude::Shell version $VERSION\n";
    }
}

sub print_section {
    my ($title, $color) = @_;
    if ($color) {
        print colored(['bold', 'yellow'], "$title:\n");
    } else {
        print "$title:\n";
    }
}

sub print_opt {
    my ($opt, $desc, $color) = @_;
    if ($color) {
        printf "    %-25s %s\n", colored(['green'], $opt), $desc;
    } else {
        printf "    %-25s %s\n", $opt, $desc;
    }
}

__END__

=head1 NAME

acme_claude_shell - AI-powered interactive shell

=head1 SYNOPSIS

    acme_claude_shell [options]
    acme_claude_shell -c "find all large log files"

=head1 OPTIONS

=over 4

=item B<-n, --dry-run>

Preview mode - show commands without executing them.

=item B<-u, --unsafe>

Disable safety confirmations for dangerous commands.

=item B<--no-color>

Disable colored output.

=item B<-d, --directory> DIR

Set working directory (default: current directory).

=item B<-c, --command> CMD

Run a single command and exit instead of starting interactive mode.
Use '-' to read the command from stdin for piping.

=item B<-m, --model> MODEL

Specify the Claude model to use (e.g., claude-opus-4-5, claude-sonnet-4-5).

=item B<-h, --help>

Show help message.

=item B<-v, --version>

Show version.

=back

=head1 DESCRIPTION

An AI-enhanced interactive shell where you describe what you want in
natural language, and Claude figures out the shell commands, explains
them, and executes them with your approval.

=head1 AUTHOR

LNATION, C<< <email at lnation.org> >>

=head1 LICENSE

This software is licensed under the Artistic License 2.0.

=cut