Я исследую использование DbC в наших проектах Perl, и я пытаюсь найти лучший способ проверки контрактов в источнике (например, проверка предварительных / пост-условий, инвариантов и т. Д.) Написан Class :: Contract Дамиана Конвея, а сейчас...

Мне нужен атрибут класса в Moose. Прямо сейчас я говорю: #!/usr/bin/perl use 5.010; use strict; use warnings; use MooseX::Declare; class User { has id => (isa => "Str", is => 'ro', builder => '_get_id'); has name...

Я уверен, что это где-то описано в документации, но мне не удалось его найти ... Я ищу синтаксический сахар, который позволит вызвать метод в классе, имя которого хранится в хэше ( в отличие от простого скаляра): use strict; use warnings;...

Я новичок в Мусе. До сегодняшнего дня наши среды работали на Perl 5.8.2, который не поддерживал Moose. Я работаю над некоторыми примерами и подумал, что параметр «required => 1» для атрибута будет удобен, однако, когда я пытаюсь использовать этот...

В моем предыдущем вопросе Moose — загрузка значений из файлов conf... Джек Мани любезно предоставил пример того, как это сделать с помощью Moose. Чтобы сделать объект конфигурации еще более общим, я решил использовать Конфигурация::Авто ....

Я работаю с объектами лося в Perl. Я хочу иметь возможность скрывать объекты лося, которые я делаю, непосредственно в JSON. Однако, когда я использую use MooseX::Storage для сокрытия объектов, он включает в себя скрытый атрибут, который я не знаю,...

Я создаю скрипт, который рекурсивно создает имена подкаталогов/файлов каталога и имена файлов в этих подкаталогах как объекты: package Dir; use Moose; use Modern::Perl; use File; use strict; use warnings; has 'path' => (is => 'ro', isa...

Я пытаюсь создать шаблон абстрактного метода, используя Perl и Moose. Чего я не понимаю, так это того, что если я переопределю метод из AbstractClass , он все равно будет вызван. Почему это так и есть ли способ избежать вызова суперкласса?...

Допустим, у нас есть такой класс Moose: package My::Test ; use Moose ; $\="\n"; sub BUILDARGS { my ($pkg,%args) = @_ ; print defined wantarray ? 'BUILDARGS: SCALAR':'BUILDARGS: VOID' ; return \%args ; } sub BUILD { print defined...