我想要实现的是创建一个导入多个角色的Moose类。这是我多年来一直在做的事情没有问题,但我目前仍然坚持为什么下面的简单示例会产生方法名称冲突。
package logrole;
use Moose::Role;
use POSIX;
use namespace::autoclean;
package otherrole;
use Moose::Role;
use File::Temp;
use namespace::autoclean;
package myclass;
use Moose;
use namespace::autoclean;
with 'logrole', 'otherrole';
package main;
use strict;
use warnings;
use myclass;
运行此命令:
Due to method name conflicts in roles 'logrole' and 'otherrole', the methods 'SEEK_CUR', 'SEEK_END', and 'SEEK_SET' must be implemented or excluded by 'myclass' at /home/user/perl5/perlbrew/perls/perl-5.22.1/lib/site_perl/5.22.1/x86_64-linux/Moose/Exporter.pm line 419
Moose::with('logrole', 'otherrole') called at roles.pl line 29
根据docs,您可以在使用如下角色时排除方法名称:
package logrole;
use Moose::Role;
use POSIX;
use namespace::autoclean;
package otherrole;
use Moose::Role;
use File::Temp;
use namespace::autoclean;
package myclass;
use Moose;
use namespace::autoclean;
with 'logrole', 'otherrole' => { -excludes => ["SEEK_CUR", "SEEK_END", "SEEK_SET" ] };
package main;
use strict;
use warnings;
use myclass;
这解决了名称冲突,但此解决方案的问题是尝试在POSIX
中导入otherrole
会产生数百个名称冲突,因此修复了在模块{{1}中排除所有这些冲突看起来很乱。
如何导入(或写入)这些角色以避免方法名称冲突?
答案 0 :(得分:4)
namespace::autoclean无法移除方法,并且信任Class::MOP::Class get_method_list
来返回它们。令人困惑的是,它返回POSIX模块中的所有常量。
如果您将namespace::autoclean
切换为namespace::clean,则问题就会消失。