perl - 行为类似于 Class::Data::Inheritable 的 Moose 类属性

标签 perl moose

我在 Moose 类中有一个类属性,但我希望它像 Class::Data::Inheritable 一样工作就覆盖父级值的子类而言。也就是说,子类继承父类的值,直到在子类上调用 setter,此时值变得不同。例如

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

{
    package Foo;
    use Moose;
    use MooseX::ClassAttribute;
    class_has Item => ( is => 'rw' );
}

{
    package Bar;
    use Moose;
    extends 'Foo';
}

Foo->Item(4);

# This prints "4, 4" as expected
#
print join( ", ", Foo->Item(), Bar->Item() ) . "\n"; 

Bar->Item(5);

# Would like this to print "4, 5", but it prints "5, 5"
#
print join( ", ", Foo->Item(), Bar->Item() ) . "\n"; 

获得此效果的最佳方法是什么,使用 MooseX::ClassAttribute否则?对于任何希望从其继承的具有类数据的类来说,这似乎是可取的行为。

最佳答案

我知道您要求继承,但角色可能会帮助您以不同的方式解决问题。

用一个简单的例子试试:

#!/usr/local/bin/perl

use strict;
use feature 'say';

{
    package Bomb;
    use Moose::Role;
    sub fuse    { say "Bomb explode" }
    sub explode { say "Bomb fuse"}
}

{
    package Spouse;
    use Moose::Role;
    sub fuse    { say "Spouse explode"}
    sub explode { say "Spouse fuse"}
}

{
    package PracticalJoke;
    use Moose;
    with 'Bomb'   => { excludes => 'explode' },
         'Spouse' => { excludes => 'fuse' };
}

my $joke = PracticalJoke->new();
$joke->fuse();
$joke->explode();

使用“排除”,您可以准确控制应该发生的情况。

看看why roles are awsome
以及 Ovid 关于 inheritance versus roles 的幻灯片.

关于perl - 行为类似于 Class::Data::Inheritable 的 Moose 类属性,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9562071/

相关文章:

perl - 驼鹿对象中的构建器子例程的参数

perl - 如何将数组从 weaver.ini 传递给 Pod::Weaver 插件

perl - 为什么 Moose 代码这么慢?

perl - 如何在 Moose 强制中访问对象的属性?

file - Perl:使用 Mechanize content_file 获取 UTF-8 文件

perl - Perl 5 中的父级和基级有什么区别?

mysql - 为什么我的perl脚本在Windows 8.1上运行缓慢,而在同一台计算机上的8.0上运行良好?

perl - 如何检查 perl 模块是否可用?

perl - Perl中$ var = <FH>和$ _之间的差异

perl - 如何使用 Moose::Exporter 导出函数?