File Coverage

blib/lib/YATT/Lite/Test/TestUtil.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	21	57.1

package YATT::Lite::Test::TestUtil;
use strict;
use warnings qw(FATAL all NONFATAL misc);

use Exporter qw/import/;

our @EXPORT = qw/eq_or_diff/;
our @EXPORT_OK = (@EXPORT
		  , qw/capture_stderr/);

require Test::More;

if (eval {require Test::Differences}) {
  *eq_or_diff = *Test::Differences::eq_or_diff;
} else {
  *eq_or_diff = *Test::More::is;
}

sub capture_stderr (&) {
  my ($sub) = @_;
  my $buffer = "";
  {
    open my $fh, '>', \$buffer;
    local *STDERR = *$fh;
    $sub->();
  }
  $buffer;
}

1;