Могу ли я передать регулярное выражение isa() с помощью объектов на основе Moose?

Question

Могу ли я использовать isa в Moose с регулярным выражением в качестве параметра? Если невозможно, я могу добиться того же самого с другими, кроме ->isa?

ok, имеющий следующие типы Animal::Giraffe, Animal::Carnivore::Crocodile, я хочу сделать ->isa(/^Animal::/), могу ли я это сделать? если я не могу, что я могу использовать для достижения желаемого эффекта?

Answer 1

Я думаю, что это должно быть сделано.

use Moose; 
use Moose::Util::TypeConstraints; 

my $animal = Moose::Meta::TypeConstraint->new(
    constraint => sub { $_[0] =~ /^Animal::/} 
); 

has animal => (is => 'rw', isa => $animal); 

ETA: Я согласен с jrockway, хотя: если у вас нет убедительных оснований в противном случае, вы должны просто использовать наследование. Ответ

Answer 2

Leon Тиммермансом был близок к тому, что я хотел бы предложить, хотя я бы использовать сахар из Moose :: Util :: TypeConstraints

use Moose; 
use Moose::Util::TypeConstraints; 

subtype Animal => as Object => where { blessed $_ =~ /^Animal::/ }; 

has animal => (is => 'rw', isa => 'Animal'); 

Answer 3

Эти родственные типы все должны „делать“ ту же роль, Animal. Тогда вы можете написать:

has 'animal' => (
    is  => 'ro', 
    does  => 'Animal', 
    required => 1, 
); 

Теперь у вас есть что-то более надежное, чем регулярное выражение, чтобы обеспечить согласованность вашей программы.

Answer 4

Расширение ответ Перигрин так, что он будет работать, если класс имеет Animal::* где-нибудь в его суперкласса, а не только в непосредственной имени класса (например, если Helper::Monkey иша Animal::Monkey):

use Moose; 
use Moose::Util::TypeConstraints; 

subtype Animal => 
    as Object => 
    where { grep /^Animal::/, $_->meta->linearized_isa }; 

has animal => (is => 'rw', isa => 'Animal'); 

Я думаю, jrockway-х предложение использовать роль вместо этого имеет много достоинств, но если вы хотите пойти именно так, вы можете также покрыть все базы.