view release on metacpan or  search on metacpan

lib/App/Muter.pm  view on Meta::CPAN

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
    return \@handles;
}
 
sub run_chain {
    my ($chain, $reverse, $handles, $stdout, $blocksize) = @_;
 
    $chain = App::Muter::Chain->new($chain, $reverse);
    $blocksize ||= 512;
 
    foreach my $io (@$handles) {
        $io->binmode(1);
        while ($io->read(my $buf, $blocksize)) {
            $stdout->print($chain->process($buf));
        }
    }
    $stdout->print($chain->final(''));
    return;
}
 
sub usage {
    my ($ret, $verbose) = @_;