File Coverage

blib/lib/SyForm/FieldRole/Verify.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 9 9 100.0


line stmt bran cond sub pod time code
1             package SyForm::FieldRole::Verify;
2             BEGIN {
3 6     6   3313 $SyForm::FieldRole::Verify::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: SyForm::Verify configuration of the field
6             $SyForm::FieldRole::Verify::VERSION = '0.103';
7 6     6   43 use Moo::Role;
  6         12  
  6         38  
8              
9             has verify => (
10             is => 'ro',
11             predicate => 1,
12             );
13              
14             has required => (
15             is => 'ro',
16             predicate => 1,
17             );
18              
19             has delete_on_invalid_result => (
20             is => 'lazy',
21             );
22              
23             sub _build_delete_on_invalid_result {
24 6     6   236 my ( $self ) = @_;
25 6         31 return 1;
26             }
27              
28             1;
29              
30             __END__
31              
32             =pod
33              
34             =head1 NAME
35              
36             SyForm::FieldRole::Verify - SyForm::Verify configuration of the field
37              
38             =head1 VERSION
39              
40             version 0.103
41              
42             =head1 AUTHOR
43              
44             Torsten Raudssus <torsten@raudss.us>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2014 by Torsten Raudssus.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut