NAME

       Catmandu::Fix::perlcode - execute Perl code as fix function

DESCRIPTION

       Use this fix in the Catmandu fix language to make use of a Perl script:

           perlcode(myscript.pl)

       The script (here "myscript.pl") must return a code reference:

           sub {
               my $data = shift;

               $data->{testing} = 1 ; # modify the item

               return $data;          # and return the data
           }

       When not using the fix language this

           my $fixer = Catmandu::Fix->new( fixes => [ do 'myscript.pl' ] );
           $fixer->fix( $item );

       is roughly equivalent to:

           my $code = do 'myscript.pl';
           $item = $code->( $item )

       All scripts are cached based on their filename, so using this fix multiple times will only
       load each given script once.

       The code reference gets passed a second value to reject selected items such as possible
       with see Catmandu::Fix::reject:

           sub {
               my ($data, $reject) = @_;

               if ($data->{my_field} eq 'OK') {
                   return $data;    # return the data and continue processing
               }
               else {
                   return $reject;  # return the reject flag to ignore this record
               }
           }

SEE ALSO

       Catmandu::Fix::code, Catmandu::Fix::cmd