Я использую AUTOLOAD
пример из поста @ikegami здесь . В недавнем отчете тестировщиков CPAN для моего модуля RF::Component::Multi говорится:
Bareword found where operator expected at .../RF/Component/Multi.pm line 102, near "s/^.*:://sr"
syntax error at .../RF/Component/Multi.pm line 102, near "s/^.*:://sr"
Код ниже и здесь на GitHub.
use 5.xx
?use vars '$AUTOLOAD'
?# Thanks @ikegami:
# https://stackoverflow.com/a/74229589/14055985
sub AUTOLOAD
{
my $method_name = our $AUTOLOAD =~ s/^.*:://sr;
my $method = sub {
my $self = shift;
return [ map { $_->$method_name(@_) } @$self ];
};
{
no strict 'refs';
*$method_name = $method;
}
goto &$method;
}
s///r
был добавлен в 5.14.
my $method_name = our $AUTOLOAD =~ s/^.*:://sr;
можно заменить на
( my $method_name = our $AUTOLOAD ) =~ s/^.*:://s;
Вы можете использовать Perl::MinimumVersion, чтобы ответить на подобные вопросы.
$ perlver your-code.pl
--------------------------------------
| file | explicit | syntax | external |
| -------------------------------------- |
| minver | ~ | v5.13.2 | n/a |
| -------------------------------------- |
| Minimum explicit version : ~ |
| Minimum syntax version : v5.13.2 |
| Minimum version of perl : v5.13.2 |
--------------------------------------
И, для более подробной информации,
$ perlver --blame your-code.pl
------------------------------------------------------------
File : minver
Line : 3
Char : 40
Rule : _regex
Version : 5.013002
------------------------------------------------------------
s/^.*:://sr
------------------------------------------------------------
Хотел бы я отметить два флажка, это тоже действительно хороший ответ.