view release on metacpan or  search on metacpan

bin/unregistered_japanese_authors  view on Meta::CPAN

        my ($id, $name, $comment) = /^\s+(\w+)\s*=>\s*'(.+?)',(?:\s*#\s*(.+))?$/;
        if ($id && $name && $comment) {
            $exceptions{$id} = [$name, $comment];
        }
        next;
    }
    print $out $_;
  }
  close $in;
  close $out;
  rename "$file.tmp" => $file or die $!;
}

if ($opts{update}) {
  my $file = "$FindBin::Bin/../lib/Acme/CPANAuthors/Japanese.pm";
  open my $in, '<', $file or die $!;
  open my $out, '>', "$file.tmp" or die $!;
  my $flag;
  while(<$in>) {
    if (/our \$VERSION = /) {
      my $ymd = substr(Time::Piece->new->strftime('%Y%m%d'), 2);

bin/unregistered_japanese_authors  view on Meta::CPAN

      $flag = 1;
      next;
    }
    if ($flag && /^\)/) {
      $flag = 0;
    }
    print $out $_ unless $flag;
  }
  close $in;
  close $out;
  rename "$file.tmp" => $file;
}

# these authors have names which can be readable as Japanese

sub _exceptions {(
    AANARI => 'Ali Anari',
    AARONJJ => 'Aaron Johnson',
    ABATIE => 'Alan Batie',
    ABBYPAN => 'Pan Lanlan',
    ADEO => 'Adekunle Olonoh',