防止字符串被解释为文件句柄

Question

Perl 有这样一个特性，即像文件句柄一样命名的字符串被成为一个文件句柄：

# let this be some nice class I wrote
package Input {
    sub awesome { ... }
}

所以当我们执行Input->awesome 或特别小心：'Input'->awesome 时，该方法将被调用。除非：

# now somewhere far, far away, in package main, somebody does this:
open Input, "<&", \*STDIN or die $!;  # normally we'd open to a file

这段代码甚至不需要被执行，而只是被解析器看到，以便让 Perl 从现在开始将字符串 'Input' 解释为文件句柄。因此，一个方法调用'Input'->awesome 会死掉，因为代表文件句柄的对象没有很棒的方法。

由于我只控制我的类而不控制其他代码，我不能简单地决定只在任何地方使用词法文件句柄。

有什么办法可以强制Input->awesome 始终是Input 包上的方法调用，但绝不是文件句柄（至少在我控制的范围内）？我认为不应该有任何名称冲突，因为 Input 包实际上是 %Input:: stash。

重现问题的完整代码（另见ideone）：

use strict;
use warnings;
use feature 'say';

say "This is perl $^V";

package Input {
    sub awesome {
        say "yay, this works";
    }
}

# this works
'Input'->awesome;

# the "open" is parsed, but not actually executed
eval <<'END';
    sub red_herring {
        open Input, "<&", \*STDIN or die $!;
    }
END
say "eval failed: $@" if $@;

# this will die
eval {
    'Input'->awesome;
};
say "Caught: $@" if $@;

示例输出：

This is perl v5.16.2
yay, this works
Caught: Can't locate object method "awesome" via package "IO::File" at prog.pl line 27.

Answer 1

对两个不同的事物（一个使用的类和文件句柄）使用相同的标识符会带来问题。如果您的类是从使用文件句柄的代码中使用的不同类中使用的，则不会出现错误：

我的1.pm

package My1;

use warnings;
use strict;

sub new { bless [], shift }
sub awesome { 'My1'->new }

__PACKAGE__

我的2.pm

package My2;

use warnings;
use strict;
use parent 'My1';

sub try {
    my $self = shift;
    return ('My1'->awesome, $self->awesome);
}

__PACKAGE__

script.pl

#!/usr/bin/perl
use warnings;
use strict;

use My2;
open My1, '<&', *STDIN;
my $o = 'My2'->new;
print $o->awesome, $o->try;

Answer 2

使用裸字 Input 作为文件句柄违反了命名约定，FILEHANDLEs 只包含大写裸字，Classes 和 Package 只包含大写/驼峰式裸字秒。

此外，词汇$filehandles 早就被引入和鼓励了。

因此，使用您的类的程序员显然行为不端，并且由于命名空间是按定义全局的，因此 Perl 很难解决此问题（支持 chorobas 关于乞求问题的声明）。

一些命名约定对于所有（动态）语言都至关重要。

感谢这个有趣的问题，当我第一次在 SO 中看到 Perl 问题时，我更愿意在 perlmonks 上看到！ :)

更新：这里的讨论已经深入：http://www.perlmonks.org/?node_id=1083985