File Coverage

script/generate-commands

Criterion	Covered	Total	%
statement	68	72	94.4
branch	16	22	72.7
condition	3	7	42.8
subroutine	12	13	92.3
pod			n/a
total	99	114	86.8

#!/usr/bin/env perl
# script/generate-commands
#
# Generates Async::Redis::Commands from redis-doc commands.json

use strict;
use warnings;
use 5.018;
use Getopt::Long;
use JSON::PP;
use File::Basename;

my ($input, $output, $help);
GetOptions(
    'input=s'  => \$input,
    'output=s' => \$output,
    'help'     => \$help,
) or usage();
usage() if $help;

$input  //= 'script/commands.json';
$output //= 'lib/Async/Redis/Commands.pm';

die "Input file not found: $input\n" unless -f $input;

# Load commands.json
open my $fh, '<', $input or die "Cannot open $input: $!";
my $json = do { local $/; <$fh> };
close $fh;

my $commands = decode_json($json);

# Generate module
my $code = generate_module($commands);

# Write output
my $dir = dirname($output);
system("mkdir", "-p", $dir) if $dir && !-d $dir;

open my $out, '>', $output or die "Cannot write $output: $!";
print $out $code;
close $out;

say "Generated $output with " . scalar(keys %$commands) . " commands";
exit 0;

sub usage {
    say "Usage: $0 [--input FILE] [--output FILE]";
    say "  --input   Path to commands.json (default: script/commands.json)";
    say "  --output  Output module path (default: lib/Async/Redis/Commands.pm)";
    exit 1;
}

sub generate_module {
    my ($commands) = @_;

    my @methods;
    my %seen;

    for my $cmd (sort keys %$commands) {
        my $info = $commands->{$cmd};
        my $method = cmd_to_method($cmd);

        next if $seen{$method}++;

        my $parts = [split /\s+/, $cmd];
        my $is_subcommand = @$parts > 1;

        push @methods, generate_method($method, $parts, $info);
    }

    return <<"END_MODULE";
# lib/Async/Redis/Commands.pm
# AUTO-GENERATED - DO NOT EDIT
# Generated from redis-doc commands.json
#
# This module provides async method wrappers for all Redis commands.
# Consume this role in Async::Redis.

package Async::Redis::Commands;

use strict;
use warnings;
use 5.018;

use Future::AsyncAwait;

@{[ join("\n\n", @methods) ]}

1;

__END__