moose

    0

    1답변

    무스 클래스 인스턴스에 속성을 추가해야합니다. 아래 코드에서 Child 클래스의 인스턴스를 만들고 "app"속성을 추가하면 다음 인스턴스를 만들 때이 속성도 추가됩니다. 내가 뭘 잘못했는지, 다시 한번 나는 생성 된 인스턴스마다 속성이 필요하다. #!C:\perl\bin\perl.exe #!/usr/bin/perl use v5.10; use Moos

    0

    2답변

    나는 어떻게 Currying in Moose가 더 잘 작동하는지 이해하려고 노력하고있다. 위의 설명서에서 예제를 사용했지만 그대로 작동하지 않습니다. 내가 set_user_agent('MyClient'); 를 호출 할 경우 나는 다음과 같은 오류가 발생합니다 : Cannot delegate set_user_agent to header because th

    2

    1답변

    나는 중형 CLI 응용 프로그램을 작성했습니다. 일단 개발 서버에 복사 한 후에는 거기에서 실행될 경우 명령을 인식하거나 인식하지 못합니다. 내 로컬 컴퓨터에서 작동하지만 서버에서는 작동하지 않는 다음 예제로 코드를 최소화했습니다. 그 이유는 무엇입니까? perl my_app.pl yay 예상 출력 : 개발 서버에서 yay 작은 응용 프로그램이 명령

    0

    1답변

    내가 알 필요가 있다면 잘 여부 모듈을 사용하여이 연습 : MyApp.pm package MyApp; use Moose; use MyApp::View; use MyApp::Config; sub view { return MyApp::View->new; } sub config { return MyApp::Config->new;

    0

    1답변

    나는 무스를 처음 접했고, 모범 사례를 따르려고 노력해왔다. 우리가 할 수있을 때 수업을 불변으로 만들려고 노력해야한다는 것을 이해합니다. 내 질문은, 개체 건설 후, 우리는 setter를 사용하여 공용 속성의 값을 변경할 수 있으며 여전히 클래스를 변경할 수 있습니까?

    4

    1답변

    속성이 아닌 무스의 생성자 호출에 추가 매개 변수가있는 경우 죽을 수 있습니까? 예를 들어, 다음 : colour가 Shoe의 특성이 없기 때문에 package Shoe; use Moose; has 'size' => (is => 'ro', isa => 'Num'); has 'color' => (is => 'ro', isa => 'Str', defaul

    0

    1답변

    OSX '매버릭스',이에 : package FOO; use Moose; use MooseX::ClassAttribute; class_has 'BAR' => (is => 'rw'); ... 검사 '펄 -c'당 청소 : FOO 단순히 '펄 FOO.pm'와 함께 실행하는 경우 OK가 .pm 구문 ...하지만이 오류를 제공합니다 : /System/Lib

    5

    1답변

    게으른 속성 중 하나가 설정되었는지 확인하는 방법을 찾으려합니다. Moose :: Meta :: Attribute 및 클래스 :: MOP :: Attribute에 대한 문서를 모두 살펴본 결과 get_value 및 has_value 메서드가 표시되었지만 제대로 작동하지 않는 것 같습니다. $attr->has_value($instance) 을하지만 $ 예

    2

    1답변

    Perl/Tk에서는 위젯 용 텍스트 변수를 정의 할 수 있습니다. 값을 보유하는 스칼라에 대한 참조입니다. 누군가 무스 속성을 사용하여 무스 속성을 textvariable (cool!)로 사용하는 방법을 보여주었습니다. subtype 'TkRef' => as 'ScalarRef'; coerce 'TkRef', from 'Str', via { my $r =

    2

    1답변

    무언가가 아닌 기존 코드를 다루고 있으며이를 무스 클래스로 확장하려고합니다. 이것은 레거시 코드의 단순화 : package My::Legacy; sub create { my ($class, $args) = @_; my $fields = { _fields => {}}; foreach my $key (keys %$args) {