File Coverage

blib/lib/SyForm/Role/Verify.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 19 22 86.3


line stmt bran cond sub pod time code
1             package SyForm::Role::Verify;
2             BEGIN {
3 7     7   3728 $SyForm::Role::Verify::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: Main verification logic (role for form holding config)
6             $SyForm::Role::Verify::VERSION = '0.103';
7 7     7   48 use Moo::Role;
  7         25  
  7         37  
8 7     7   2213 use Module::Runtime qw( use_module );
  7         37  
  7         53  
9              
10             has verify_without_errors => (
11             is => 'lazy',
12             );
13              
14             sub _build_verify_without_errors {
15 0     0   0 my ( $self ) = @_;
16 0         0 return 0;
17             }
18              
19             has syccess => (
20             is => 'lazy',
21             );
22              
23             sub _build_syccess {
24 7     7   82 my ( $self ) = @_;
25 7         68 return {};
26             }
27              
28             has syccess_class => (
29             is => 'lazy',
30             );
31              
32             sub _build_syccess_class {
33 7     7   91 my ( $self ) = @_;
34 7         55 return 'Syccess';
35             }
36              
37             has loaded_syccess_class => (
38             is => 'lazy',
39             );
40              
41             sub _build_loaded_syccess_class {
42 7     7   94 my ( $self ) = @_;
43 7         115 return use_module($self->syccess_class);
44             }
45              
46             1;
47              
48             __END__
49              
50             =pod
51              
52             =head1 NAME
53              
54             SyForm::Role::Verify - Main verification logic (role for form holding config)
55              
56             =head1 VERSION
57              
58             version 0.103
59              
60             =head1 AUTHOR
61              
62             Torsten Raudssus <torsten@raudss.us>
63              
64             =head1 COPYRIGHT AND LICENSE
65              
66             This software is copyright (c) 2014 by Torsten Raudssus.
67              
68             This is free software; you can redistribute it and/or modify it under
69             the same terms as the Perl 5 programming language system itself.
70              
71             =cut