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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
|
use strict;
package HTML::FormFu::Deflator::CompoundSplit;
$HTML::FormFu::Deflator::CompoundSplit::VERSION = '2.07';
# ABSTRACT: CompoundSplit deflator
use Moose;
use MooseX::Attribute::Chained;
extends 'HTML::FormFu::Deflator';
use HTML::FormFu::Constants qw( $EMPTY_STR $SPACE );
has split => ( is => 'rw', traits => ['Chained'] );
has join => ( is => 'rw', traits => ['Chained'] );
has field_order => ( is => 'rw', traits => ['Chained'] );
sub deflator {
my ( $self, $value ) = @_;
return if !defined $value || $value eq $EMPTY_STR;
my ( $multi, @fields ) = @{ $self->parent->get_fields };
my $split
= defined $self->split
? $self->split
: qr/$SPACE+/;
my $join
= defined $self->join
? $self->join
: $SPACE;
my @parts = CORE::split $split, $value;
if ( my $order = $self->field_order ) {
my @new_order;
FIELD:
for my $i (@$order) {
for my $field (@fields) {
if ( $field->name eq $i ) {
push @new_order, $field;
next FIELD;
}
}
}
@fields = @new_order;
}
my %value;
for my $i ( 0 .. $#fields ) {
# if there are more parts than fields, join the extra ones
# to make the final field's value
if ( $i == $#fields ) {
my $default = CORE::join $join, @parts[ $i .. $#parts ];
$fields[$i]->default($default);
$value{ $fields[$i]->name } = $default;
}
else {
$fields[$i]->default( $parts[$i] );
$value{ $fields[$i]->name } = $parts[$i];
}
}
return \%value;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormFu::Deflator::CompoundSplit - CompoundSplit deflator
=head1 VERSION
version 2.07
=head1 SYNOPSIS
---
element:
- type: Multi
name: address
elements:
- name: number
- name: street
deflator:
- type: CompoundSplit
# set the default
$form->get_field('address')->default( $address );
=head1 DESCRIPTION
Deflator to allow you to set several field's values at once.
For use with a L<HTML::FormFu::Element::Multi> group of fields.
A L<default|HTML::FormFu::Role::Element::Field/default> value passed to the
L<Multi|HTML::FormFu::Element::Multi> field will be split according to the
L</split> setting, and its resulting parts passed to its child elements.
=head1 METHODS
=head2 split
Arguments: $regex
Default Value: C<qr/ +/>
Regex used to split the default value. Defaults to a regex matching 1 or more
space characters.
=head2 join
Arguments: $string
Default Value: C<' '>
If splitting the value results in more parts than there are fields, any extra
parts are joined again to form the value for the last field. The value of
L</join> is used to join these values.
Defaults to a single space.
For example, if the Multi element contains fields C<number> and C<name>,
and is given the value C<10 Downing Street>; when split this results in 3
parts: C<10>, C<Downing> and C<Street>. In this case, the 1st part, C<10> is
assigned to the first field, and the 2nd and 3rd parts are re-joined with a
space to give the single value C<Downing Street>, which is assigned to the
2nd field.
=head2 field_order
Arguments: \@order
If the parts from the split value should be assigned to the fields in a
different order, you must provide an arrayref containing the names, in the
order they should be assigned to.
---
element:
- type: Multi
name: address
elements:
- name: street
- name: number
deflator:
- type: CompoundSplit
field_order:
- number
- street
=head1 AUTHOR
Carl Franks
=head1 LICENSE
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=head1 AUTHOR
Carl Franks <cpan@fireartist.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2018 by Carl Franks.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
