moo

6열

1답변

Dancer에서 객체를 인스턴스화하여 표시 할 값을 반환 할 수 있습니까?

나는이 내 댄서 응용 프로그램 모듈에 다음 코드 : 나는 내가 통해 .pl 파일을 테스트하면 잘 작동 Dice.pm라는 Moops 클래스를 가지고,하지만 난 때 액세스 할 수 package Deadlands; use Dancer ':syntax'; use Dice; our $VERSION = '0.1'; get '/' => sub { m

1열

1답변

동적으로 생성 된 Perl Moo

다음 코드와 같이 Perl 클로저를 Moo 접근 자로 변환하려고합니다. 불행하게도이 코드는 Moose와 함께 작동하지만 Moo에서는 예외가 발생합니다. Perl 클로저에 의해 정의 된 읽기 및 쓰기 접근자를 사용하여 무 코드를 작성하도록 도와주세요 (단순한 값을 읽고 저장하는 기본 접근자가 아닌 접근 자 읽기 및 쓰기는 내 클로저를 호출해야 함). #!/u

2열

1답변

Moo의 생성자를 재정의하는 방법이 있습니까?

나는 생성자 주위에 래퍼를 추가해야하는 MooX 모듈을 만들고있다. 메서드 수정을 시도했거나 가져 오기 방법을 직접 변경하여 *{"${target}::new"}을 적용하지 않았습니다. 어떻게하면됩니까?

1열

1답변

Perl Moo 객체에서 빈 문자열을 undef로 자동 변환

Perl Moo 객체의 일부 필드의 경우 빈 문자열을 필드에 할당 할 때 undef으로 대체하고 싶습니다. 내가 원한다 : $obj->x("") 필드를 x으로 지정하지 않았다. 이 작업을 수행하는 무언가 확장 프로그램을 개발하는 데 도움을주십시오. 이 할 수있는 가능한 방법 : sub make_field_undef { my ($class, $fie

2열

1답변

동적 Moo 객체 메소드 변경

Moo를 OO 엔진으로 사용하고 있으며 런타임에 일부 인스턴스의 동작을 변경하려고합니다. 새로운 메소드를 추가하고 기존 메소드를 변경해야합니다. Moo와 가능한가요? 그렇지 않다면 어떻게해야합니까?

2열

1답변

속성 유형을 변경하는 방법은 무엇입니까? (Perl Moo)

우리는 Perl Moo를 사용합니다. package C; use Moo; use Types::Standard qw(Str Int Num Maybe); has 'x' => (is=>'rw', isa=>Str); has 'y' => (is=>'rw', isa=>Int); has 'z' => (is=>'rw', isa=>Int); # here to

6열

1답변

처리 방법 : 순환 수입 때문에 Moo :: Role의 'before'수정자가 자동으로 건너 뛰었습니까?

Moo::Role을 사용하면 순환 가져 오기가 자동으로 내 메서드의 before 수정자가 실행되는 것을 방지하고 있음을 발견했습니다. 내가 가지고 Moo::Role MyRole.pm에서 : package MyRole; use Moo::Role; use MyB; requires 'the_method'; before the_method => sub {

2열

2답변

Perl Moo에서 setter/writter에 여러 인수를 전달하는 방법

두 개의 Perl 모듈을 Moo으로 마이그레이션하기 시작했으나 setter/writer가 하나의 인수 만 가질 수 있기 때문에 멈추었습니다 (can not it?). 여기 package MyThing: use Moo; use Scalar::Util qw(blessed); use SomeOtherThing; has foo => ( is =>

0열

1답변

Moo로 웹 서비스 래핑

최근에 나는 Shipping 웹 서비스를 래핑하는 Perl 클라이언트의 유지 보수를 담당했습니다. 프로젝트의 초기 상태는 웹 서비스의 객체에 직접 매핑되는 Moo 객체를 사용합니다. 예를 들어 Parcel, Address 및 Label 클래스가 있습니다. API v2에서는 이러한 개체 중 하나를 나타내는 모든 데이터를 웹 서비스에 POST해야만 해당 개체에

5열

1답변

Sub :: Quote를 사용한 캡처 약화

Sub::Quote에 의해 생성 된 코드에서 캡처 된 변수를 약화하고 싶습니다. use 5.10.0; use Scalar::Util qw[ weaken ]; { my $s = 'foo'; my $x = sub { say $s }; weaken(my $y = $x); my $bar = sub { &$y };