1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87
|
package HTML::FormFu::Transformer;
use Moose;
extends 'HTML::FormFu::Processor';
use HTML::FormFu::Exception::Transformer;
use Scalar::Util qw( blessed );
use Carp qw( croak );
sub process {
my ( $self, $values, $params ) = @_;
my $return;
my @errors;
if ( ref $values eq 'ARRAY' ) {
my @return;
for my $value (@$values) {
my ($return) = eval { $self->transformer( $value, $params ) };
if ($@) {
push @errors, $self->return_error($@);
push @return, undef;
}
else {
push @return, $return;
}
}
$return = \@return;
}
else {
($return) = eval { $self->transformer( $values, $params ) };
if ($@) {
push @errors, $self->return_error($@);
}
}
$self->set_nested_hash_value( $params, $self->nested_name, $return );
return (@errors);
}
sub return_error {
my ( $self, $err ) = @_;
if ( !blessed $err || !$err->isa('HTML::FormFu::Exception::Transformer') ) {
$err = HTML::FormFu::Exception::Transformer->new;
}
return $err;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
HTML::FormFu::Transformer - Transformer Base Class
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 METHODS
=head1 CORE TRANSFORMERS
=over
=item L<HTML::FormFu::Transformer::Callback>
=back
=head1 AUTHOR
Carl Franks, C<cfranks@cpan.org>
=head1 LICENSE
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|