1#!/usr/bin/perl -w 2 3use strict; 4 5use lib './t'; 6 7use Params::Validate qw(validate); 8 9use Test::More; 10plan tests => $] == 5.006 ? 2 : 3; 11 12eval { foo() }; 13like( $@, qr/parameter 'foo'/ ); 14 15{ 16 local $Params::Validate::NO_VALIDATION = 1; 17 18 eval { foo() }; 19 is( $@, q{} ); 20} 21 22unless ( $] == 5.006 ) 23{ 24 eval { foo() }; 25 like( $@, qr/parameter 'foo'/ ); 26} 27 28sub foo 29{ 30 validate( @_, { foo => 1 } ); 31} 32