File Coverage

blib/lib/SyForm/ResultsRole/Success.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package SyForm::ResultsRole::Success;
2             BEGIN {
3 6     6   3929 $SyForm::ResultsRole::Success::AUTHORITY = 'cpan:GETTY';
4             }
5             # ABSTRACT: A bool for holding the success of the form process
6             $SyForm::ResultsRole::Success::VERSION = '0.103';
7 6     6   44 use Moo::Role;
  6         13  
  6         40  
8              
9 6     6   2377 use overload 'bool' => sub { $_[0]->success };
  6     4   31  
  6         63  
  4         25  
10              
11             has success => (
12             is => 'ro',
13             required => 1,
14             );
15              
16             1;
17              
18             __END__
19              
20             =pod
21              
22             =head1 NAME
23              
24             SyForm::ResultsRole::Success - A bool for holding the success of the form process
25              
26             =head1 VERSION
27              
28             version 0.103
29              
30             =head1 AUTHOR
31              
32             Torsten Raudssus <torsten@raudss.us>
33              
34             =head1 COPYRIGHT AND LICENSE
35              
36             This software is copyright (c) 2014 by Torsten Raudssus.
37              
38             This is free software; you can redistribute it and/or modify it under
39             the same terms as the Perl 5 programming language system itself.
40              
41             =cut