#!/usr/bin/perl -w
#
#  Params::Validate test code.

use strict;

use Params::Validate qw /:all/;

{
    print "Setting validation options to allow extra parameters.\n";
    validation_options( allow_extra => 1 );

    print "Calling baz ..\n";
    baz( name => 'Alex', unknown => "scary" );
    baz( name => 'Alex', height => 181, unknown => "scary" );
    print "Back from baz!\n";
}

sub baz {
    print 'On entry: @_ has: ' . join(':',@_) . "\n";
    my %p = validate( @_, { name => 1, height => { default => 200 } } );

    print "Validation baz succeeded, paramater hash is:\n";
    foreach my $key ( keys %p ) {

        print "--> $key: $p{$key}\n";
    }
}

##</code><code>##

Code before warnings are enabled at line 9, column 1.  See page 431 of PBP.  (Severity: 4)
Always unpack @_ first at line 19, column 1.  See page 178 of PBP.  (Severity: 4)
Subroutine "baz" does not end with "return" at line 19, column 1.  See page 197 of PBP.  (Severity: 4)