use strict;
use warnings;
my $res;
BEGIN {
$ENV{ANSI_COLORS_DISABLED} = 1;
delete $ENV{DATAPRINTERRC};
use File::HomeDir::Test; # avoid user's .dataprinter
}
BEGIN {
use Test::More;
use Data::Printer return_value => 'dump', colored => 0, multiline => 0, index => 0;
my @data = ( 1 .. 3 );
$res = p @data;
}
is $res, '[ 1, 2, 3 ]', 'DDP wihtin a BEGIN block';
done_testing;