Email::Valid 0.177- fails

sub _is_domain_label {
  my ($self, $string) = @_;
  return unless $string =~ /\A
    [A-Z0-9]          # must start with an alnum
    (?:
      [-A-Z0-9]*      # then maybe a dash or alnum
      [A-Z0-9]        # finally ending with an alnum
    )?                # lather, rinse
  \z/ix;
  return 1;
}

追記

RT に投げました。spam 対策とかでアノニマスな Web 投稿ができなくなったのが悲しい*1。言い訳がましいですけど酔った勢いで書いたんで…subject から間違うなんて（・＿・、）

*1:ということで来年こそ PAUSE に登録したい