OOP 용 Perl을 사용하는 C++과 같은 사용법

Question

나는 무스로 놀아왔다. 나는 순수한 가상 함수의 예를 C++과 비슷하지만 무언의 말투 (특히 C++에서 보이는 방식)로하고 싶다. Moose가 일반 Perl보다 엄격한 모델을 부과하는 경우에도 메소드 수정 자나 SUPER:: 호출을 통해 요청하는 것을 수행하는 방법이 여러 가지가 있다는 것을 알고 있습니다. 그래서 C++과 유사한 구현을 가능한 한 많이 요구하고 있습니다. "왜?" 이 제한 사항 중? C++ 중심의 사람들이 대부분 으로 식별 할 수있는 방법으로 무언가와 함께 Perl에 약간의 C++ 코드를 포팅하려는 계획이 대부분 호기심입니다. 여기

Answer 1

나는 서브 클래스 대신 역할을 사용하여이 방법을 생각할 수 있습니다 : 리얼 물건 정의가 없기 때문에

{ 
    package AbstractRole; 
    use Moose::Role; 
    requires 'stuff'; 
} 

{ 
    package Real; 
    use Moose; 
    with 'AbstractRole'; 
} 

이것은 컴파일 오류를 줄 것이다.

실시간으로 물건 방법을 추가하면 지금은 작동하게됩니다

{ 
    package Real; 
    use Moose; 
    with 'AbstractRole'; 

    sub stuff { print "Using child function!\n" } 
} 

Answer 2

이다 (역할 참조에 대한 자세한 내용은 역할없이 다른 답변) 내 시도했다 : 내가 정확히 내가 무스와 함께 원하는 것을 할 수 없습니다 나타납니다

package Abstract; 
use Moose; 

sub stuff; 

package Real; 
use Moose; 
extends 'Abstract'; 

override 'stuff' => sub { print "Using child function!\n"; } 

Answer 3

,하지만 난 매우 가까이 올 수 있습니다 역할. 추상 기본 클래스 대

역할은 다른 언어로 추상 기본 클래스의 개념 잘 알고있는 경우

, 당신이 유혹 할 수있다 : 여기에 역할에 대한 무스 설명서 entry 정보입니다 같은 방식으로 역할을 사용하십시오.

필수 메소드의 목록 만 포함하는 "인터페이스 전용" 역할을 정의 할 수 있습니다.

그러나이 역할을 사용하는 클래스는 모두 필수 메서드를 직접 구현하거나 부모로부터 상속을 통해 필수 구현 메서드를 구현해야합니다. 은 메소드 요구 사항 검사를 지연 할 수 없으므로 향후 서브 클래스에서 을 구현할 수 있습니다.

역할이 필요한 메서드를 직접 정의하므로 기본 클래스 을 추가해도 아무 것도 얻을 수 없습니다. 이 해당 인터페이스를 구현하는 각 클래스에서 인터페이스 역할을 단순히 사용하는 것이 좋습니다.

Answer 4

는 또한 제시 Luehrs ' MooseX::ABC를 살펴 할 수 있습니다. 여기 구현의 일부와 매우 비슷하게 보입니다. 개요에서 :

package Shape; 
use Moose; 
use MooseX::ABC; 

requires 'draw'; 

package Circle; 
use Moose; 
extends 'Shape'; 

sub draw { 
    # stuff 
} 

my $shape = Shape->new; # dies 
my $circle = Circle->new; # succeeds 

package Square; 
use Moose; 
extends 'Shape'; # dies, since draw is unimplemented 

나는 Jesse가 그날 C++ 프로그래머라는 것을 알고 있습니다.