1*256a93a4Safresh1#!perl 2*256a93a4Safresh1#=============================================================================== 3*256a93a4Safresh1# 4*256a93a4Safresh1# t/pod_coverage.t 5*256a93a4Safresh1# 6*256a93a4Safresh1# DESCRIPTION 7*256a93a4Safresh1# Test script to check POD coverage. 8*256a93a4Safresh1# 9*256a93a4Safresh1# COPYRIGHT 10*256a93a4Safresh1# Copyright (C) 2015 Steve Hay. All rights reserved. 11*256a93a4Safresh1# 12*256a93a4Safresh1# LICENCE 13*256a93a4Safresh1# This script is free software; you can redistribute it and/or modify it under 14*256a93a4Safresh1# the same terms as Perl itself, i.e. under the terms of either the GNU 15*256a93a4Safresh1# General Public License or the Artistic License, as specified in the LICENCE 16*256a93a4Safresh1# file. 17*256a93a4Safresh1# 18*256a93a4Safresh1#=============================================================================== 19*256a93a4Safresh1 20*256a93a4Safresh1use 5.008001; 21*256a93a4Safresh1 22*256a93a4Safresh1use strict; 23*256a93a4Safresh1use warnings; 24*256a93a4Safresh1 25*256a93a4Safresh1use Test::More; 26*256a93a4Safresh1 27*256a93a4Safresh1#=============================================================================== 28*256a93a4Safresh1# MAIN PROGRAM 29*256a93a4Safresh1#=============================================================================== 30*256a93a4Safresh1 31*256a93a4Safresh1MAIN: { 32*256a93a4Safresh1 plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING}; 33*256a93a4Safresh1 34*256a93a4Safresh1 my $ok = eval { 35*256a93a4Safresh1 require Test::Pod::Coverage; 36*256a93a4Safresh1 Test::Pod::Coverage->import(); 37*256a93a4Safresh1 1; 38*256a93a4Safresh1 }; 39*256a93a4Safresh1 40*256a93a4Safresh1 if (not $ok) { 41*256a93a4Safresh1 plan skip_all => 'Test::Pod::Coverage required to test POD coverage'; 42*256a93a4Safresh1 } 43*256a93a4Safresh1 elsif ($Test::Pod::Coverage::VERSION < 0.08) { 44*256a93a4Safresh1 plan skip_all => 'Test::Pod::Coverage 0.08 or higher required to test POD coverage'; 45*256a93a4Safresh1 } 46*256a93a4Safresh1 else { 47*256a93a4Safresh1 plan tests => 1; 48*256a93a4Safresh1 pod_coverage_ok('PerlIO::via::QuotedPrint', { 49*256a93a4Safresh1 also_private => [qw(FILL PUSHED WRITE)] 50*256a93a4Safresh1 }); 51*256a93a4Safresh1 } 52*256a93a4Safresh1} 53*256a93a4Safresh1 54*256a93a4Safresh1#=============================================================================== 55