Могу ли я иметь в Perl / Moose два атрибута с взаимозависимыми значениями по умолчанию? - PullRequest
Новая
       18

Могу ли я иметь в Perl / Moose два атрибута с взаимозависимыми значениями по умолчанию?

4 голосов
/ 12 февраля 2011

Могу ли я сделать это в Музе? 

package SomeClass;
use Moose;

has start => (
    isa => 'Int',
    is => 'ro',
    lazy => 1,
    default => sub { $_[0]->end },
);

has end => (
    isa => 'Int',
    is => 'ro',
    lazy => 1,
    default => sub { $_[0]->start },
);

...

Другими словами, я хочу два атрибута, называемых «начало» и «конец», и, если указан только один из них, я хочу, чтобы другой был установлен на то же самое. Не указывать ни один из них является ошибкой.

Работает ли эта взаимозависимая настройка?

Ответы [ 2 ]

16 голосов
/ 12 февраля 2011

Да, , если вы устраняете возможность бесконечной рекурсии, проверяя, что указано хотя бы одно из этих значений: 

has start => (
    ...
    predicate => 'has_start',
);

has end => (
    ...
    predicate => 'has_end',
);

sub BUILD
{
    my $self = shift;

    die "Need to specify at least one of 'start', 'end'!" if not $self->has_start and not $self->has_end;
}

В качестве альтернативы, вы можете отложить проверку до значения по умолчаниюподводные лодки: 

has start => (
    ...
    predicate => 'has_start',
    default => sub {
        my $self = shift;
        die "Need to specify at least one of 'start', 'end'!" if not $self->has_end;
        $self->end;
    },
);

has end => (
    ...
    predicate => 'has_end',
    default => sub {
        my $self = shift;
        die "Need to specify at least one of 'start', 'end'!" if not $self->has_start;
        $self->start;
    },
);
2 голосов
/ 04 июня 2011

Лично я бы воспользовался ленью, чтобы не попасть в бесконечную рекурсию: 

has start => (
  is => 'ro',
  isa => 'Int',
  lazy => 1,
  default => sub { shift->end },
  predicate => 'has_start',
);

has end => (
  is => 'ro',
  isa => 'Int',
  lazy => 1,
  default => sub { shift->start },
  predicate => 'has_end',
);

sub BUILD {
  my $self = shift;

  die "Need to specify at least one of 'start', 'end'!" 
    unless $self->has_start || $self->has_end;
}
...