NAME

Params::Profile - module for registering Parameter profiles

SYNOPSIS

    package Foo::Bar;

    use Params::Profile;

    ### Single profile
    Params::Profile->register_profile(
                    'method'    => 'subroto',
                    'profile'   => {
                                testkey1 => { required => 1 },
                                testkey2 => {
                                        required => 1,
                                        allow => qr/^\d+$/,
                                    },
                                testkey3 => {
                                        allow => qr/^\w+$/,
                                    },
                                },
                );

    sub subroto {
        my (%params) = @_;

        return unlesss Params::Profile->validate('params' => \%params);
        ### DO SOME STUFF HERE ...
    }

    my $profile = Params::Profile->get_profile('method' => 'subroto');

    ### Multiple Profile
    Params::Profile->register_profile(
                    'method'    => 'subalso',
                    'profile'   => [
                                    'subroto',
                                    {
                                    testkey4 => { required => 1 },
                                    testkey5 => {
                                            required => 1,
                                            allow => qr/^\d+$/,
                                        },
                                    testkey6 => {
                                            allow => qr/^\w+$/,
                                        },
                                    },
                                ],
                );


    sub subalso {
        my (%params) = @_;

        ### Checks parameters agains profile of subroto and above registered
        ### profile
        return unlesss Params::Profile->validate('params' => \%params);

        ### DO SOME STUFF HERE ...
    }

DESCRIPTION

Params::Profile provides a mechanism for a centralised Params::Check or a Data::FormValidater profile. You can bind a profile to a class::subroutine, then, when you are in a subroutine you can simply call Params::Profile->check($params) of Params::Profile->validate($params) to validate against this profile. Validate will return true or false on successfull or failed validation. Check will return what Data::FormValidator or Params::Check would return. (For Params::Check this is simply a hash with the validated parameters , for Data::FormValidator, this is a Data::FormValidator::Results object)

Object Methods

Params::Profile->register_profile('method' => $method, 'profile' => $profile [, caller => $callerclass )

Register a new profile for method for the called-from caller class. Instead of a profile, you could give a STRING containing the method from which you want to use the profile...or simpler saying: make an alias to a profile. You can also give an ARRAYREF containing both strings (defining the aliases) and HASHREFS, defining profiles which then will be combined (See second example in SYNOPSYS). When you provide the optional caller option, you define the class where the given method is defined.

Params::Profile->get_profile( method => $method [, caller => $caller ]);

Returns the profile registered for $method, or when no $method is given, returns the profile for caller.

Params::Profile->verify_profiles( \@methods );

Verifies for each method in list, if the profile exists. Returns undef when it doesn't. Also checks for aliases which point to no existing profiles.

Params::Profile->clear_profiles();

Clear the loaded profiles.

Params::Profile->get_profiles()

Just return a hash containing all the registered profiles, it is in the form: method => [ \%profile ]

Params::Profile->validate( params => %params [, method => $method ] )

When given an hash of key->value pairs, this sub will check the values against the loaded profile. Returns true when it validates, otherwise returns false. It will check against the loaded profile for the given method, or when method doesn't exist, against the caller

Params::Profile->check( params => %params [, method => $method ] )

When given an hash of key->value pairs, this sub will check the values against the loaded profile. It will check against the loaded profile for the given method, or when method doesn't exist, against the caller.

Depending on the used profile, it will return %hash with values for a Params::Check profile. Or an object Data::FormValidator::Results when the laoded profile is a Data::FormValidator profile.

AUTHOR

This module by

Michiel Ootjers <michiel@cpan.org>.

and

Jos Boumans <kane@cpan.org>.

ACKNOWLEDGEMENTS

Thanks to Jos Boumans for Params::Check, and the authors of Data::FormValidator

COPYRIGHT

This module is copyright (c) 2002 Michiel Ootjers <michiel@cpan.org>. All rights reserved.

This library is free software; you may redistribute and/or modify it under the same terms as Perl itself.

cpanm Params::Profile

perl -MCPAN -e shell
install Params::Profile