/usr/share/perl5/Validation/Class/Simple.pm is in libvalidation-class-perl 3.1.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | # ABSTRACT: Drop-in Data Validation Class
package Validation::Class::Simple;
{
$Validation::Class::Simple::VERSION = '3.1.1';
}
use Validation::Class;
our $VERSION = '3.1.1'; # VERSION
sub BUILD { }
1;
__END__
=pod
=head1 NAME
Validation::Class::Simple - Drop-in Data Validation Class
=head1 VERSION
version 3.1.1
=head1 DESCRIPTION
Validation::Class::Simple is a drop-in validation class derived from the
L<Validation::Class> framework. This package is intended to be used in
situations where a full-fledged validation class is not warranted,
e.g. (scripts, etc).
Simply define your data validation profile and execute, much in the same way
you would use most other data validation libraries available.
Should you find yourself wanting to switch to a full-fledged validation class
using L<Validation::Class>, you could do so very easily as the validation field
specification is exactly the same.
=head2 SYNOPSIS
use Validation::Class::Simple;
my $profile = {
'login' => {
label => 'User Login',
error => 'Login invalid.',
required => 1,
validation => sub {
my ($self, $this_field, $all_params) = @_;
return $this_field->{value} eq 'admin' ? 1 : 0;
}
},
'password' => {
label => 'User Password',
error => 'Password invalid.',
required => 1,
validation => sub {
my ($self, $this_field, $all_params) = @_;
return $this_field->{value} eq 'pass' ? 1 : 0;
}
}
};
my $input =
Validation::Class::Simple->new( fields => $profile, params => $params );
unless ( $input->validate ) {
return $input->errors_to_string;
}
=head1 AUTHOR
Al Newkirk <awncorp@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by awncorp.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|