no warnings 'File::KDBX';
my @warnings = warnings { alert 'uh oh' };
is @warnings, 0, 'Warnings can be disabled lexically'
no warnings 'File::KDBX';
my @warnings = warnings { alert 'uh oh' };
is @warnings, 0, 'Warnings can be disabled lexically'
use warnings FATAL => 'File::KDBX';
my $exception = exception { alert 'uh oh' };
like $exception, qr/uh oh/, 'Warnings can be fatal';
use warnings FATAL => 'File::KDBX';
my $exception = exception { alert 'uh oh' };
like $exception, qr/uh oh/, 'Warnings can be fatal';