Scroll to navigation

Catmandu::Fix::Bind::visitor(3pm) User Contributed Perl Documentation Catmandu::Fix::Bind::visitor(3pm)

NAME

Catmandu::Fix::Bind::visitor - a binder that computes Fix-es for every element in record

SYNOPSIS

 # If data is like:
   numbers:
      - one
      - two
      - three
   person:
      name: jennie
      age: 44
      color:
         - green
         - purple
         - brown
         - more:
            foo: bar
 do visitor()
    upcase(scalar)  # upcase every scalar value in the record
 end
 # will produce
   numbers:
      - ONE
      - TWO
      - THREE
   person:
      name: JENNIE
      age: 44
      color:
         - GREEN
         - PURPLE
         - BROWN
         - more:
            foo: BAR
  do visitor()
    # upcase all the 'name' fields in the record
    if all_match(key,name)
      upcase(scalar)
    end
  end
  do visitor()
    # upcase all the field names in the record
    upcase(key)
  end

DESCRIPTION

The visitor binder will iterate over all the elements in a record and perform fixes on them.

Special node names are available to process every visited element:

Process a Fix on every scalar value. E.g.

   upcase(scalar)
   replace_all(scalar,'$','tested')
    
Process a Fix on every array value. E.g.

   sort_field(array)
    

Values need to be put in the 'array' field to be available for fixes. The scope of the array is limited to the array visited.

Process a Fix on every hash value. E.g.

   copy_field(hash.age,hash.age2)
    

Values need to be put in the 'hash' field to be available for fixes. The scope of the hash is limited to the hash visited.

Provides access to the key on which the scalar,array or hash value is found. Eg.

   # Upcase all 'name' fields in the record
   if all_match(key,name)
      upcase(scalar)
   end
    

CONFIGURATION

path

A path in the data to visit:

  # Visit any field
  do visitor()
    ...
  end
  # Visit only the fields at my.deep.field
  do visitor(path: my.deep.field)
    ...
  end

SEE ALSO

Catmandu::Fix::Bind

2024-07-02 perl v5.38.2