Back to results
ytnobody/p5-Poz(opens in a new tab)
Language: Perl
data validator that inspired from zod
- stars
- 5
- watchers
- 1
- forks
- 1
- open issues
- 0
- Last updated
- 03/06/2025
gem-hunterLanguage: Perl
data validator that inspired from zod
Poz - A simple, composable, and extensible data validation library for Perl.
use Poz qw/z/;
use Data::UUID;
use Time::Piece;
my $bookSchema = z->object({
id => z->string->uuid->default(sub { Data::UUID->new->create_str }),
title => z->string,
author => z->string->default("Anonymous"),
published => z->date,
created_at => z->date->default(sub { Time::Piece::localtime()->strftime('%Y-%m-%d') }),
updated_at => z->date->default(sub { Time::Piece::localtime()->strftime('%Y-%m-%d') }),
})->as("My::Book");
my $book = $bookSchema->parse({
title => "Spidering Hacks",
author => "Kevin Hemenway",
published => "2003-10-01",
}) or die "Invalid book data";
$book->isa("My::Book"); # true
my ($otherBook, $err) = $bookSchema->safe_parse({
title => "Eric Sink on the Business of Software",
author => "Eric Sink",
published => "2006-0i-01",
});
$otherBook; # undef
$err; # [{key => "", error => "Not a date"}]
my $bookOrNumberSchema = z->union($bookSchema, z->number);
my $bookOrNumber = $bookOrNumberSchema->parse(123);
$bookOrNumber = $bookOrNumberSchema->parse({
title => "Perl Best Practices",
date => "2005-07-01",
author => "Damian Conway",
});
my $bookArraySchema = z->array($z->is("My::Book"));
my $book1 = $bookSchema->parse({title => "Perl Best Practices", author => "Damian Conway", published => "2005-07-01"});
my $book2 = $bookSchema->parse({title => "Spidering Hacks", author => "Kevin Hemenway", published => "2003-10-01"});
my $bookArray = $bookArraySchema->parse([$book1, $book2]);
# or use Poz as class builder
{
package My::Class;
use Poz qw/z/;
z->object({
name => z->string,
age => z->number,
})->constructor;
}
my $instance = My::Class->new(
name => 'Alice',
age => 20,
); # bless({name => 'Alice', age => 20}, 'My::Class');
Poz is a simple, composable, and extensible data validation library for Perl. It is inspired heavily from Zod https://zod.dev/ in TypeScript.
use Poz qw/z/;
my $builder = z;
Returns a new instance of Poz::Builder.
my $schema = z->object({
id => z->string->uuid->default(sub { Data::UUID->new->create_str }),
title => z->string,
author => z->string->default("Anonymous"),
published => z->date,
created_at => z->date->default(sub { Time::Piece::localtime()->strftime('%Y-%m-%d') }),
updated_at => z->date->default(sub { Time::Piece::localtime()->strftime('%Y-%m-%d') }),
})->as("My::Book");
Creates a new schema object.
my $schema = z->string;
Creates a new string schema object.
my $schema = z->number;
Creates a new number schema object.
my $schema = z->date;
Creates a new date schema object.
my $schema = z->object($schema);
Creates a new object schema object.
package My::Class;
use Poz qw/z/;
z->object({
name => z->string,
age => z->number,
})->constructor;
Creates a constructor method with Poz validation in your class.
my $schema = z->array($schema);
Creates a new array schema object.
my $schema = z->enum(@values);
Creates a new enum schema object.
my $schema = z->union(@schemas);
Creates a new union schema object.
If you want to contribute to Poz, you can follow the steps below:
Prepare: Install cpanm and Minilla
$ curl -L https://cpanmin.us | perl - --sudo App::cpanminus $ cpanm Minilla
The Repository on GitHub: https://github.com/ytnobody/p5-Poz
Clone: Clone the repository.
$ git clone
Branch: Create a feature branch from the main branch.
$ git checkout -b feature-branch main
Code: Write your code and tests, then build.
$ minil build
Test: Run the tests.
$ minil test
Commit: Commit your changes.
$ git commit -am "Add some feature"
Push: Push to your branch.
$ git push origin feature-branch
Copyright (C) ytnobody.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
ytnobody ytnobody@gmail.com