File Coverage

blib/lib/SyForm/Exception/Role/WithSyFormField.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 6 100.0


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