perl - 如何在非类包中重载运算符？

Question

在我的情况下，我不需要警告 Use of uninitialized value in string在比较字符串相等性时。所以我坚持使用no warnings 'uninitialized' 来消除范围内的所有此类警告。最好重载eq - 带有我自己的子程序的运算符，例如:

use overload 'eq' => \&undefined_equal;

sub undefined_equal {
  my ( $left, $right ) = @_;
  no warnings 'uninitialized';

  if ( $left eq $right ) {
    return 1;
  }
  return 0;
}

当然， overload ing 不起作用，因为根据文档， overload旨在与类一起使用，但我有简单的程序包。
所以我确实尝试过重载内置函数，比如:

package REeq;
use strict; use warnings; use 5.014;

BEGIN {
  use Exporter ();
  @REeq::ISA         = qw( Exporter );
  @REeq::EXPORT      = qw( eq );
}

sub eq {
  my ( $left, $right ) = @_;
  no warnings 'uninitialized';

  if ( $left CORE::eq $right ) {
    return 1;
  }
  return 0;
}
1;

我可以调用我的 eq但不能将其用作运算符。
我需要它，因为我想要

if ( defined $some_scalar && $some_scalar eq 'literal string' ){
....
}

只用

if ( $some_scalar eq 'literal string' ){
....
}

我怎样才能实现我的目标？

Answer 1

更改 eq 的行为是可能的，但它需要编写一个 XS 模块来创建一个替换代码 perl 的操作检查器为 eq 执行范围内的操作。这是 no autovivification; 使用的方法， 例如。