Source

p5-rdf-crypt / xt / 02pod_coverage.t

use Test::More skip_all => 'needs work';
use Test::Pod::Coverage;

my @modules =
	map { s[^lib/][]; s[.pm$][]; s[/][::]g; $_ }
	my @_x = qw(
		lib/RDF/Crypt.pm
		lib/RDF/Crypt/Decrypter.pm
		lib/RDF/Crypt/Encrypter.pm
		lib/RDF/Crypt/Signer.pm
		lib/RDF/Crypt/Verifier.pm
		lib/RDF/Crypt/Role/DoesDecrypt.pm
		lib/RDF/Crypt/Role/DoesEncrypt.pm
		lib/RDF/Crypt/Role/DoesSign.pm
		lib/RDF/Crypt/Role/DoesVerify.pm
		lib/RDF/Crypt/Role/StandardSignatureMarkers.pm
		lib/RDF/Crypt/Role/ToString.pm
		lib/RDF/Crypt/Role/WithPrivateKey.pm
		lib/RDF/Crypt/Role/WithPublicKeys.pm
	);
pod_coverage_ok($_, "$_ is covered")
	foreach @modules;
done_testing(scalar @modules);