view release on metacpan or  search on metacpan

maint-travis-ci/lib/tools.pm  view on Meta::CPAN

use strict;
use warnings;

package tools;

use Cwd qw(cwd);
use Config;

sub capture_stdout(&) {
  require Capture::Tiny;
  goto &Capture::Tiny::capture_stdout;
}

sub diag {
  my $handle = \*STDERR;
  for (@_) {
    print {$handle} $_;
  }
  print {$handle} "\n";