use strict; package HTML::FormFu::Constraint::Bool; $HTML::FormFu::Constraint::Bool::VERSION = '2.07'; # ABSTRACT: Boolean Constraint use Moose; extends 'HTML::FormFu::Constraint::Regex'; sub regex { return qr/^[01]?\z/; } __PACKAGE__->meta->make_immutable; 1; __END__ =pod =encoding UTF-8 =head1 NAME HTML::FormFu::Constraint::Bool - Boolean Constraint =head1 VERSION version 2.07 =head1 DESCRIPTION Value must be either 1 or 0. =head1 SEE ALSO Is a sub-class of, and inherits methods from L, L L =head1 AUTHOR Carl Franks C =head1 LICENSE This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =head1 AUTHOR Carl Franks =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2018 by Carl Franks. 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