MooseX::Storage::Util->peek($json => ('format' => 'JSON'))
};
if ($@ =~ /^Could not load JSON module because/) {
+ die 'No JSON module found' if $ENV{AUTHOR_TESTING};
skip "No JSON module found", 1;
}
if ($@ =~ /^Could not load YAML module because/
or $@ =~ /^Can't locate Best/
) {
+ die 'No YAML module found' if $ENV{AUTHOR_TESTING};
skip "No YAML module found", 1;
}