The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

XAS::Service::Profiles::Search - A class for creating standard validation profiles.

SYNOPSIS

my $params = {
    start => 0,
    limit => 25,
};

my $fields = qw(id server queue requestor typeofrequest status startdatetime);
my $search = XAS::Service::Profiles::Search->new($fields);
my $validate = XAS::Service::Validate->new($search);
my $results = $validate->check($params, 'pager');

if ($results->has_invalid) {

    my @invalids = $results->invalid;

    foreach $invalid (@invalids) {

        printf("%s: %s\n", $invalid, $results->msgs->{$invalide});

    }

}

DESCRIPTION

This module creates a standardized Data::FormValidator validation profile for searches.

METHODS

new($fields)

Initializes the vaildation profile.

$field

An array ref of field names that may appear in search requests.

SEE ALSO

XAS::Service
XAS

AUTHOR

Kevin L. Esteb, <kevin@kesteb.us>

COPYRIGHT AND LICENSE

Copyright (c) 2012-2016 Kevin L. Esteb

This is free software; you can redistribute it and/or modify it under the terms of the Artistic License 2.0. For details, see the full text of the license at http://www.perlfoundation.org/artistic_license_2_0.