perl – 如何在子程序名称中启用点(.)？

use MyModule;
my $var=MyModule->a.method.get;
#MyModule::a.method.get() is now defined

看来这些点是子程序名称中的非法字符：

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

sub mr.s
{
        print "OKn";
}
mr.s();

分发

Illegal declaration of subroutine main::mr at main.pl line 5

那么,如何在子程序名称中启用点？

我理解,至少有些受访者可能会觉得不鼓励使用自动加载,以及尝试更改合法的子例程名称,而是提供更好的做法示例.我没有反对这些答案,也不认为它们的价值不高.不过,请尽量回答我原来的问题.

编辑：
为了澄清,最终目标是一个模块,当调用未定义的子例程时,它将根据其名称动态定义.为了实现这一点,我的意思是使用AUTOLOAD,其方式与this tutorial中使用的方式类似.