무거운 짐

Perl은 모든 것을 대상으로 하는 언어가 아니다.그것의 핵심 데이터 유형(표량, 숫자, 해시)은 모두 대상이 아니다(물론 방법도 없다). 그러나 당신은 자신의 클래스와 대상이 특정한 상황에서(특정한 언어 환경이나 특별한 강제 전환) 행위를 제어할 수 있다. 이것이 바로 재부팅이다.
중재 메커니즘이 미묘하고 강대하다.하나의 흥미로운 예는 중재 후 한 대상이 블라인드 언어 환경에서 하는 행위이다. 보통 블라인드 언어 환경에서 대상은 진가로 평가되지만, 중재를 통해 이러한 행위를 바꿀 수 있다.왜 이런 행동을 바꾸려고 합니까?빈 대상이 블라인드에서 가짜로 평가될 수 있기 때문이다.
이러한 상황(어경 또는 조작부호)에서의 대상을 다시 불러올 수 있다. 문자열화, 디지털화, 볼화, 교체, 호출, 디지털 접근, 해시 접근, 디지털 조작부호, 비교 조작부호, 스마트 일치, 비트 조작부호 심지어 값을 부여할 수 있다.문자열화, 디지털화와 볼화는 가장 중요하고 흔히 볼 수 있는 재부팅 상황이다.(실제는 문자열어경, 디지털어경, 볼어경)

일반적인 조작부호를 다시 불러오기

다시 불러올 기호와 원하는 행동을 연결하기 위해 오버로드를 컴파일합니다.사용 시 매개 변수는 쌍으로 전달됩니다. 다시 불러올 기호는 키이고 함수는 값입니다.Null이라는 클래스가 부울 언어 환경에 다시 로드되는 동작은 부울 언어 환경에서 항상 가짜 값을 반환합니다.

package Null
{
use overload 'bool' => sub { 0 };
...
}

또한 문자열의 언어 환경에서 행동을 늘리기 쉽다.

package Null
{
use overload
'bool' => sub { 0 },
'""' => sub { '(null)' };
}

재부팅 디지털화 행위는 매우 복잡하다. 왜냐하면 산술 조작부호는 왕왕 2원이기 때문이다.만약 두 개의 재부팅된 조작수를 더하면 어떤 재부팅 행위가 먼저 일어날까요?이 답안은 일치하고 이해하기 쉬워야 하며 원본 코드를 읽지 않은 사람이라도 이해할 수 있어야 한다.
perldoc overload에서 2원 조작부호의 호출 약정과 자동 생성 메커니즘을 사용하여 설명합니다.그러나 가장 간단한 해결 방안은 디지털화 행위('0+')를 다시 불러오고 반환 방안을 제공하는 것이다.

package Null
{
use overload
'bool' => sub { 0 },
'""' => sub { '(null)' },
'0+' => sub { 0 },
fallback => 1;
}

fallback을 진짜 값으로 설정하는 것은 Perl이 요청한 동작과 일치하는 다른 정의된 재부팅 행위를 사용할 수 있도록 하는 것이다.만약 여전히 안 된다면, Perl은 다시 싣지 않은 것으로 간주해라. 이것은 보통 네가 원하는 행동이다.
만약 fallback이 없다면, Perl은 당신이 제공한 재부팅 행위만 사용할 수 있습니다.추가 작업을 시도하는 사람이 있으면 Perl에서 예외가 발생합니다.

무거운 짐과 계승

자류는 부류로부터 무거운 짐을 물려받을 것이다.다시 쓰기 재부팅 행위는 두 가지 방식이 있다.만약 부모 클래스의 재부팅 행위가 함수 인용을 사용한다면, 하위 클래스도 같은 형식으로 재부팅 행위를 다시 써야 한다.
리셋 동작이 함수 인용이 아닌 이름을 사용한다면, 이 종류는 리셋 방법을 다시 써서 리셋 동작을 다시 쓸 수 있습니다.

package Null {
use overload
'bool' => 'get_bool',
'""' => 'get_string',
'0+' => 'get_num',
fallback => 1;

sub get_bool { 0 }
}

이렇게 하면 모든 하위 클래스가 다시 쓰기getbool()을 사용하여 부울화 시나리오의 동작을 변경합니다.

package Null::ButTrue {
use parent 'Null';

sub get_bool { 1 }
}

재부팅 사용

무거운 짐은 새로운 행동을 일으키는 지름길이다.CPAN에서의 IO::All 배포 패키지는 이 아이디어를 극한까지 발휘하여 간단하고 우아한 API를 실현했다.많은 API는 재부팅을 통해 새롭게 바뀔 수 있습니다.
행렬 클래스에 덧셈, 곱셈, 심지어 연결 작업을 다시 부르면 더욱 편리하게 사용할 수 있다.물론 이것은 원래 행렬 안에 이러한 조작 기호가 있기 때문이다. 만약 새로운 문제 영역에 이러한 기호가 존재하지 않는다면, 당신은 Perl의 조작 기호를 어떻게 그것과 일치하게 할 것인가를 스스로 생각해야 한다.
Perl Best Practice는 중재에 대해 남용하지 말라는 또 다른 조언을 가지고 있다.예를 들어 디지털화하지 말아야 할 대상에 대해 디지털화를croak () 함수로 다시 불러오면 프로그램 BUG를 발견하고 복구하는 데 도움을 줄 수 있다.