File Coverage

blib/lib/SyForm/ViewRole/Verify.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 3 66.6
pod n/a
total 6 9 66.6


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