1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
use strict; use warnings; use Params::Validate qw(validate); use Test::More; { my @w; local $SIG{__WARN__} = sub { push @w, @_ }; my @p = ( foo => undef ); eval { validate( @p, { foo => { regex => qr/^bar/ } } ) }; ok( $@, 'validation failed' ); ok( !@w, 'no warnings' ); } done_testing();