평가 및 사용 관련 문제

Question

이 코드를 작성했으며 POE 모듈이 시스템에 설치된 경우 작동합니다.

#!/usr/bin/perl 

use strict; 
use warnings; 
eval("use POE; 1") or die ('Please, install POE module. \n'); 

... 

을 그리고 반환 :

#!/usr/bin/perl 

use strict; 
use warnings; 
use POE; 

... 

는하지만이 모듈이 존재하는지 확인하려면 내가 다른 모듈을 시도하고도 오류를했다

Bareword "KERNEL" not allowed while "strict subs" in use at ./terminalhero.perl line 58. 
Bareword "HEAP" not allowed while "strict subs" in use at ./terminalhero.perl line 60. 
Execution of ./terminalhero.perl aborted due to compilation errors. 

. 엄격 모드를 사용하여 내가 원하는 것을 어떻게 할 수 있습니까?

Answer 1

문제는 컴파일 시간 후에 eval이 실행되지만 컴파일시에 KERNEL 및 HEAP 상수가 검사된다는 것입니다. 그래서 당신은 BEGIN 블록의 내부에 평가를 둘 필요가 :

BEGIN { 
    eval "use POE;"; 
    die "Unable to load POE: $@\n" if $@; 
} 

이 대부분 무용에있는 운동이지만,이 모듈을 '로드 할 수없는 경우 표준 use POE; 또한 유용한 오류로 죽을 것이기 때문에 요청했습니다.