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

eval "use File::Find::Rule::BOM;";
plan skip_all => "skip the no BOM test because $@" if $@;
my @foo = File::Find::Rule->bom->in('lib', 't', 'xt');
ok(scalar(@foo) == 0, 'No BOM')
or diag(join("\t", map { "'$_' has BOM." } @foo));
done_testing;