1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1use warnings; 3*5759b3d2Safresh1 4*5759b3d2Safresh1use Test::More; 5*5759b3d2Safresh1 6*5759b3d2Safresh1my @classes = ('Pod::Perldoc', map { "Pod::Perldoc::$_" } qw( 7*5759b3d2Safresh1 BaseTo ToChecker ToNroff ToRtf 8*5759b3d2Safresh1 GetOptsOO ToMan ToPod ToText ToXml 9*5759b3d2Safresh1 ToANSI ToTerm 10*5759b3d2Safresh1) ); 11*5759b3d2Safresh1 12*5759b3d2Safresh1if( eval { require Tk; require Tk::Pod; 1 } ) { push @classes, 'Pod::Perldoc::ToTk' } 13*5759b3d2Safresh1else { 14*5759b3d2Safresh1 note "Skip testing Pod::Perldoc::ToTk because there's no Tk"; 15*5759b3d2Safresh1 } 16*5759b3d2Safresh1 17*5759b3d2Safresh1plan tests => scalar @classes; 18*5759b3d2Safresh1 19*5759b3d2Safresh1foreach my $class ( @classes ) { 20*5759b3d2Safresh1 require_ok( $class ); 21*5759b3d2Safresh1 my $version = do { no strict 'refs'; ${ '$' . $class . '::VERSION' } }; 22*5759b3d2Safresh1 note( "$class $version" ) if defined $version 23*5759b3d2Safresh1 } 24