The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

HTML::FormFu::Deflator::CompoundSplit - CompoundSplit deflator

VERSION

version 2.07

SYNOPSIS

    ---
    element:
      - type: Multi
        name: address

        elements:
          - name: number
          - name: street

        deflator:
          - type: CompoundSplit

    # set the default

    $form->get_field('address')->default( $address );

DESCRIPTION

Deflator to allow you to set several field's values at once.

For use with a HTML::FormFu::Element::Multi group of fields.

A default value passed to the Multi field will be split according to the "split" setting, and its resulting parts passed to its child elements.

METHODS

split

Arguments: $regex

Default Value: qr/ +/

Regex used to split the default value. Defaults to a regex matching 1 or more space characters.

join

Arguments: $string

Default Value: ' '

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 "join" is used to join these values.

Defaults to a single space.

For example, if the Multi element contains fields number and name, and is given the value 10 Downing Street; when split this results in 3 parts: 10, Downing and Street. In this case, the 1st part, 10 is assigned to the first field, and the 2nd and 3rd parts are re-joined with a space to give the single value Downing Street, which is assigned to the 2nd field.

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

AUTHOR

Carl Franks

LICENSE

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Carl Franks <cpan@fireartist.com>

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.