Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
|
my @classes = ( 'Pod::Perldoc' , map { "Pod::Perldoc::$_" } qw(
BaseTo ToChecker ToNroff ToRtf
GetOptsOO ToMan ToPod ToText ToXml
ToANSI ToTerm
) );
if ( eval { require Tk; require Tk::Pod; 1 } ) { push @classes , 'Pod::Perldoc::ToTk' } else {
note "Skip testing Pod::Perldoc::ToTk because there's no Tk" ;
}
plan tests => scalar @classes ;
foreach my $class ( @classes ) {
require_ok( $class );
my $version = do { no strict 'refs' ; ${ '$' . $class . '::VERSION' } };
note( "$class $version" ) if defined $version
}
|