File Coverage

blib/lib/HTML/FormFu/Exception/Transformer.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 14 57.1


line stmt bran cond sub pod time code
1             package HTML::FormFu::Exception::Transformer;
2              
3 3     3   11 use strict;
  3         6  
  3         112  
4             our $VERSION = '2.05'; # VERSION
5              
6 3     3   13 use Moose;
  3         4  
  3         14  
7             extends 'HTML::FormFu::Exception::Input';
8              
9             sub stage {
10 0     0 0   return 'transformer';
11             }
12              
13             sub transformer {
14 0     0 0   return shift->processor(@_);
15             }
16              
17             around render_data_non_recursive => sub {
18             my ( $orig, $self, $args ) = @_;
19              
20             my $render = $self->$orig( {
21             stage => $self->stage,
22             transformer => $self->transformer,
23             $args ? %$args : (),
24             });
25              
26             return $render;
27             };
28              
29             __PACKAGE__->meta->make_immutable;
30              
31             1;