The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
unless ( $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
my $pc = Pod::Coverage->new(
package => 'RPi::OLED::SSD1306::128_64',
pod_from => 'lib/RPi/OLED/SSD1306/128_64.pm',
private => [qr/^ssd1306/, qr/^bootstrap$/],
);
is $pc->coverage, 1, "pod coverage ok";
if ($pc->uncovered){
print "Uncovered:\n\t", join( ", ", $pc->uncovered ), "\n";
}
done_testing;