view release on metacpan or  search on metacpan

lib/Perinci/CmdLine/Base.pm  view on Meta::CPAN

1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
            $r->{args}{$an} ne '-';
    #log_trace("Getting argument '$an' value from stdin ...");
    $r->{args}{$an} = $do_stream ?
        __gen_iter(\*STDIN, $as, $an) :
            $is_ary ? [<STDIN>] :
                do {local $/; ~~<STDIN>};
    $r->{args}{"-cmdline_src_$an"} = 'stdin';
} elsif ($src eq 'stdin_or_file' || $src eq 'stdin_or_files') {
    # push back argument value to @ARGV so <> can work to slurp
    # all the specified files
    local @ARGV = @ARGV;
    unshift @ARGV, $r->{args}{$an}
        if defined $r->{args}{$an};
 
    # with stdin_or_file, we only accept one file
    splice @ARGV, 1
        if @ARGV > 1 && $src eq 'stdin_or_file';
 
    #log_trace("Getting argument '$an' value from ".
    #                 "$src, \@ARGV=%s ...", \@ARGV);