File Coverage

blib/lib/HTML/FormFu/Constraint/Bool.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1 3     3   685 use strict;
  3         6  
  3         257  
2              
3             package HTML::FormFu::Constraint::Bool;
4             $HTML::FormFu::Constraint::Bool::VERSION = '2.07';
5             # ABSTRACT: Boolean Constraint
6              
7 3     3   21 use Moose;
  3         7  
  3         23  
8             extends 'HTML::FormFu::Constraint::Regex';
9              
10             sub regex {
11 12     12 1 60 return qr/^[01]?\z/;
12             }
13              
14             __PACKAGE__->meta->make_immutable;
15              
16             1;
17              
18             __END__
19              
20             =pod
21              
22             =encoding UTF-8
23              
24             =head1 NAME
25              
26             HTML::FormFu::Constraint::Bool - Boolean Constraint
27              
28             =head1 VERSION
29              
30             version 2.07
31              
32             =head1 DESCRIPTION
33              
34             Value must be either 1 or 0.
35              
36             =head1 SEE ALSO
37              
38             Is a sub-class of, and inherits methods from L<HTML::FormFu::Constraint::Regex>,
39             L<HTML::FormFu::Constraint>
40              
41             L<HTML::FormFu>
42              
43             =head1 AUTHOR
44              
45             Carl Franks C<cfranks@cpan.org>
46              
47             =head1 LICENSE
48              
49             This library is free software, you can redistribute it and/or modify it under
50             the same terms as Perl itself.
51              
52             =head1 AUTHOR
53              
54             Carl Franks <cpan@fireartist.com>
55              
56             =head1 COPYRIGHT AND LICENSE
57              
58             This software is copyright (c) 2018 by Carl Franks.
59              
60             This is free software; you can redistribute it and/or modify it under
61             the same terms as the Perl 5 programming language system itself.
62              
63             =cut