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

# let this be some nice class I wrote
package Input {
    sub 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 :: 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.