Source

p5-json-path / xt / 02pod_coverage.t

Diff from to

File xt/02pod_coverage.t

+use XT::Util;
 use Test::More;
 use Test::Pod::Coverage;
 
-my @modules = qw(JSON::Path);
-pod_coverage_ok($_, "$_ is covered") for @modules;
-done_testing(scalar @modules);
+plan skip_all => __CONFIG__->{skip_all}
+	if __CONFIG__->{skip_all};
 
+if ( __CONFIG__->{modules} )
+{
+	my @modules = @{ __CONFIG__->{modules} };
+	pod_coverage_ok($_, "$_ is covered") for @modules;
+	done_testing(scalar @modules);
+}
+else
+{
+	all_pod_coverage_ok();
+}
+