As of Text::CSV_XS-1.05, you can catch/ignore any error at your own risk:

          my ($c, $s);

          sub ignore3006
          {
              my ($err, $msg, $pos, $recno) = @_;
              if ($err == 3006) {
                  # ignore this error
                  ($c, $s) = (undef, undef);
                  SetDiag (0);
                  }
              # Any other error
              return;
              } # ignore3006

          $csv->callbacks (error => \&ignore3006);
          $csv->bind_columns (\$c, \$s);
          while ($csv->getline ($fh)) {
              # Error 3006 will not stop the loop
              }
[download]

Note that this API is young and new. New insights might enhance or change later on.