1package main; 2 3use strict; 4use warnings; 5 6BEGIN { 7 eval { 8 require Test::More; 9 Test::More->VERSION( 0.88 ); 10 Test::More->import(); 11 1; 12 } or do { 13 print "1..0 # skip Test::More required to test pod coverage.\n"; 14 exit; 15 }; 16 eval { 17 require Test::Pod::Coverage; 18 Test::Pod::Coverage->VERSION(1.00); 19 Test::Pod::Coverage->import(tests => 1); 20 1; 21 } or do { 22 print <<eod; 231..0 # skip Test::Pod::Coverage 1.00 or greater required. 24eod 25 exit; 26 }; 27} 28 29## all_pod_coverage_ok ({coverage_class => 'Pod::Coverage::CountParents'}); 30pod_coverage_ok ('Astro::SIMBAD::Client', { 31 also_private => [ qr{^[[:upper:]]\d_]+$} ], 32 }); 33# Astro::SIMBAD::Client::WSQueryInterfaceServices explicitly not tested 34# for coverage, since it was (mostly) generated from the WSDL anyway. 35# The actual service routines are documented in Astro::SIMBAD::Client, 36# but there seems to be no way to tell Test::Pod::Coverage this. 37 381; 39