The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
# t/01_ini.t; just to load Text::Table by using it

$|++; 
print "1..1
";
my($test) = 1;

# 1 load
use Text::Table;
my($loaded) = 1;
$loaded ? print "ok $test
" : print "not ok $test
";
$test++;

# 2 pod syntax
# ugh. can't think of a good way to check for podchecker portably

# my $skip = !( my $podfile = $INC{ 'Text/Table.pm'});
# $skip ||= !( my $podchecker = `which podcheckerX`);
# chomp $podchecker;
# my $podok = `$podchecker $podfile 2>&1` =~ /pod syntax OK/ unless $skip;
# if ( $skip ) {
#     print "ok $test # Skip\n";
# } else {
#     print $podok ? "ok $test\n" : "not ok $test\n";
# }
# $test++;

# end of t/01_ini.t