Question

我已阅读各种教程和Moo文档，但我找不到任何描述我想要做的事情。

我想做的事情如下：

has 'status' => (
  is  => 'ro',
  isa => Enum[qw(pending waiting completed)],
);

has 'someother' => (
  is       => is_status() eq 'waiting'   ? 'ro' : 'rw',
  required => is_status() eq 'completed' ? 1    : 0,
  isa      => Str,
  lazy     => 1,
);

如果我只是偏离这个想法，我将如何制作一个属性＆＃39; ro＆＃39;或者＆＃39; rw＆＃39;是否需要，取决于另一个属性的值？

注意，枚举来自Type::Tiny。

Answer 1

问问自己为什么要这样做。你正在处理对象。那些是应用了一组逻辑的数据。该逻辑在类中描述，对象是应用了类逻辑的数据实例。

如果有一个属性（即数据）可以应用两个不同的逻辑，它是否仍然是同一个类？毕竟，财产是否可以改变是一个非常独特的规则。

所以你真的有两个不同的课程。一个someother属性是只读的，另一个属性是可更改的。

在Moo（和Moose）中，有几种方法可以构建它。

实现Foo :: Static和Foo :: Dynamic（或Changeable或Whatever），其中两者都是Foo的子类，只有一个属性发生变化
实现Foo并实现子类
实现Foo和改变someother行为的角色，并将其应用于构造函数中。 Moo::Role继承自Role::Tiny。

以下是使用角色的方法示例。

package Foo;
use Moo;
use Role::Tiny ();

has 'status' => ( is => 'ro', );

has 'someother' => (
    is      => 'ro',
    lazy    => 1,
);


sub BUILD {
  my ( $self) = @_;

  Role::Tiny->apply_roles_to_object($self, 'Foo::Role::Someother::Dynamic')
    if $self->status eq 'foo';
}

package Foo::Role::Someother::Dynamic;
use Moo::Role;

has '+someother' => ( is => 'rw', required => 1 );

package main;
use strict;
use warnings;
use Data::Printer;

# ...

首先，我们要创建一个具有动态someother。

的对象

my $foo = Foo->new( status => 'foo', someother => 'foo' );
p $foo;
$foo->someother('asdf');
print $foo->someother;

__END__
Foo__WITH__Foo::Role::Someother::Dynamic  {
    Parents       Role::Tiny::_COMPOSABLE::Foo::Role::Someother::Dynamic, Foo
    Linear @ISA   Foo__WITH__Foo::Role::Someother::Dynamic, Role::Tiny::_COMPOSABLE::Foo::Role::Someother::Dynamic, Role::Tiny::_COMPOSABLE::Foo::Role::Someother::Dynamic::_BASE, Foo, Moo::Object
    public methods (0)
    private methods (0)
    internals: {
        someother   "foo",
        status      "foo"
    }
}
asdf

正如你所看到的那样有效。现在让我们做一个静态的。

my $bar = Foo->new( status => 'bar', someother => 'bar' );
p $bar;
$bar->someother('asdf');

__END__
Foo  {
    Parents       Moo::Object
    public methods (4) : BUILD, new, someother, status
    private methods (0)
    internals: {
        someother   "bar",
        status      "bar"
    }
}
Usage: Foo::someother(self) at /home/julien/code/scratch.pl line 327.

糟糕！一个警告。不是一个很好的只读＆＃39;像Moose这样的例外，但我想这就像它一样好。

但是，这对required属性没有帮助。你可以创建一个没有Foo->new( status => 'foo' )的{{1}}，它仍然可以正常显示。

因此，您可能希望解决子类方法或使用角色并构建factory class。

是否可以使属性配置依赖于Moo中的另一个属性？

1 个答案: