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