use Test::More tests => 2;
require XXX;
eval { XXX::XXX([1, 2]) };
like $@, qr/^---/, 'YAML Dump Worked for "require XXX"';
no warnings 'once';
$XXX::DumpModule = 'Data::Dumper';
eval { XXX::XXX([1, 2]) };
like $@, qr/^\$VAR/, 'YAML Dump Worked with $DumpModule';