#!/usr/bin/perl -w ######################################################################### # # Serż Minus (Sergey Lepenkov), <abalama@cpan.org> # # Copyright (C) 1998-2023 D&D Corporation. All Rights Reserved # # This is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. # ######################################################################### use strict; use Test::More; # Ensure a recent version of Test::Pod::Coverage my $ver = 1.08; eval "use Test::Pod::Coverage $ver"; plan skip_all => "Test::Pod::Coverage $ver required for testing POD coverage" if $@; # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, # but older versions don't recognize some common documentation styles my $verpc = 0.18; eval "use Pod::Coverage $verpc"; plan skip_all => "Pod::Coverage $verpc required for testing POD coverage" if $@; plan skip_all => "Currently a developer-only test" unless -d '.svn' || -d ".git"; my %skip = ( trustme => [ qr/^[A-Z_]+$/, ], ); all_pod_coverage_ok(\%skip); 1; __END__