File Coverage

blib/lib/HTML/FormFu/OutputProcessor.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 21 76.1


line stmt bran cond sub pod time code
1             package HTML::FormFu::OutputProcessor;
2              
3 4     4   2247 use strict;
  4         7  
  4         170  
4             our $VERSION = '2.05'; # VERSION
5              
6 4     4   19 use Moose;
  4         6  
  4         29  
7 4     4   21116 use MooseX::Attribute::FormFuChained;
  4         6  
  4         167  
8              
9             with 'HTML::FormFu::Role::HasParent', 'HTML::FormFu::Role::Populate';
10              
11 4     4   20 use HTML::FormFu::ObjectUtil qw( form parent );
  4         5  
  4         658  
12              
13             has type => ( is => 'rw', traits => ['FormFuChained'] );
14              
15             sub clone {
16 0     0 0   my ($self) = @_;
17              
18 0           my %new = %$self;
19              
20 0           return bless \%new, ref $self;
21             }
22              
23             __PACKAGE__->meta->make_immutable;
24              
25             1;
26              
27             __END__
28              
29             =head1 NAME
30              
31             HTML::FormFu::OutputProcessor - Post-process HTML output
32              
33             =head1 VERSION
34              
35             version 2.05
36              
37             =head1 DESCRIPTION
38              
39             Post-process a form or element's HTML.
40              
41             =head1 CORE OUTPUT PROCESSORS
42              
43             =over
44              
45             =item L<HTML::FormFu::OutputProcessor::Indent>
46              
47             =item L<HTML::FormFu::OutputProcessor::StripWhitespace>
48              
49             =back
50              
51             =head1 AUTHOR
52              
53             Carl Franks, C<cfranks@cpan.org>
54              
55             =head1 LICENSE
56              
57             This library is free software, you can redistribute it and/or modify it under
58             the same terms as Perl itself.
59              
60             =cut