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

module.exports = {
  reporter: function (results, data, opts) {
    var len = results.length,
      str = '',
      file, error, globals, unuseds;

    results.forEach(function (result) {
      file = result.file;
      error = result.error;
      str += file  + ': line ' + error.line + ', col ' +
        error.character + ', ' + error.reason;

      // Add the error code if the --verbose option is set
      if (opts.verbose) {
        str += ' (' + error.code + ')';
      }

      str += '\n';
    });

    str += len > 0 ? ("\n" + len + ' error' + ((len === 1) ? '' : 's')) : "";

    data.forEach(function (data) {
      file = data.file;
      globals = data.implieds;
      unuseds = data.unused;

      if (globals || unuseds) {
        str += '\n\n' + file  + ' :\n';
      }

      if (globals) {
        str += '\tImplied globals:\n';
        globals.forEach(function (global) {
          str += '\t\t' + global.name  + ': ' + global.line + '\n';
        });
      }
      if (unuseds) {
        str += '\tUnused Variables:\n\t\t';
        unuseds.forEach(function (unused) {
          str += unused.name + '(' + unused.line + '), ';
        });
      }
    });

    if (str) {
      console.log(str + "\n");
    }
  }
};