#!perl

use 5.010;
use strict;
use warnings;

use Perinci::CmdLine::Classic;

our %SPEC;

$SPEC{cmdline_src_stdin_or_files_array} = {
    v => 1.1,
    summary => 'This function has array arg with cmdline_src=stdin_or_files',
    args => {
        a1 => {schema=>'array*', cmdline_src=>'stdin_or_files'},
    },
};
sub cmdline_src_stdin_or_files_array {
    my %args = @_;
    [200, "OK", "a1=[".join(",",@{ $args{a1} })."]"];
}

Perinci::CmdLine::Classic->new(url => '/main/cmdline_src_stdin_or_files_array')->run;
