Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Syntax test for cpanfile.
#!perl
use strict;
use warnings;
use utf8;
use FindBin;
use Module::CPANfile;
use Test::More;
my $cpanfile = "$FindBin::Bin/../cpanfile";
eval { Module::CPANfile->load($cpanfile) };
my $error_message = $@;
ok !$error_message, "cpanfile syntax ok";
if ($error_message) {
warn "$error_message\n";
}
done_testing;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment