Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

#!/usr/bin/perl
use strict;
eval { use Test::CheckManifest tests => 2 };
plan skip_all => "Test::CheckManifest required" if $@;
$Test::CheckManifest::HOME = '/tmp/' . $$ . '/test';
my $error;
local *Test::Builder::BAILOUT = sub {
$error = 'BAILOUT';
};
my $success = ok_manifest({
filter => [qr/\.(git|build)/],
exclude => ['/t/test'],
}, 'filter OR exclude');
is $error, 'BAILOUT';
is $success, undef;