Аргумент в пользу подпрограммы разработчика в объекте американского лося

Я в настоящее время делегирую метод разработчика ко всем объектам, которые расширяют один из моих базовых классов. Проблема, с которой я сталкиваюсь, я нуждаюсь во всех объектах или считать атрибут себя или передаюсь в значении.

#  In Role:
has 'const_string' => (
    isa     => 'Str',
    is      => 'ro',
    default => 'test',
);

has 'attr' => (
    isa     => 'Str',
    is      => 'ro',
    builder => '_builder',
);

requires '_builder';


#  In extending object  -  desired 1
sub _builder {
    my ($self) = shift;
    #  $self contains $self->const_string
 }

#  In extending object  -  desired 2
sub _builder {
    my ($arg1, $arg2) = @_;
    #  $args can be passed somehow?
 }

Это в настоящее время возможно или является мной оказывающийся перед необходимостью делать это некоторый другой путь?

6
задан lespea 20 July 2010 в 14:38
поделиться