view release on metacpan or  search on metacpan

lib/Acme/Capture.pm  view on Meta::CPAN

package Acme::Capture;
$Acme::Capture::VERSION = '0.01';
use strict;
use warnings;

use Exporter ();
use Capture::Tiny;

#--------------------------------------------------------------------------#
# create API subroutines and export them
# [do STDOUT flag, do STDERR flag, do merge flag, do tee flag]
#--------------------------------------------------------------------------#

my %api = (
  capture         => [1,1,0,0],
  capture_stdout  => [1,0,0,0],
  capture_stderr  => [0,1,0,0],
  capture_merged  => [1,1,1,0],
  tee             => [1,1,0,1],
  tee_stdout      => [1,0,0,1],
  tee_stderr      => [0,1,0,1],