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

NAME

Catmandu::Fix::Bind::pica_diff - a binder that tracks changes in PICA records

SYNOPSIS

  do pica_diff()
    pica_set(foo,021A$a)
    pica_add(foo,010@$x)
  end
 

DESCRIPTION

This binder replaces a record with a PICA Patch record of changes applied to the original record. If the record is not changed inside the do pica_diff() section, the result will be an empty record.

The original record must be limited to fields of one level. Field 003@ is included in the resulting patch record for level 0, if found.