모듈에서 다른 동작을 구현

Question

나는 다음과 같은 펄 모듈이 : 내가 입력하는 즉시 실행됩니다 인쇄가

package Log; 

use strict; 
use warnings; 

# Packaging 
use Exporter; 
use vars qw($VERSION @ISA @EXPORT ); 

$VERSION = '1.0.0'; 
@ISA  = qw(Exporter); 
@EXPORT = qw(Log_Send); 

my %log_g = ('PathDirFileLog' => '/some/path', 
      'File'   => undef); 

# Init 
PrivateLog_OpenFileLog(); 
print("Do not execute this code unless I want from main.pl\n"); 

END { 
    PrivateLog_CloseFileLog(); 
} 


# Public Functions 

sub Log_Send 
{ 
    my ($message) = @_; 

    # Cleaning $message 
    $message =~ s/\n+$//g; 
    $message =~ s/\n/\*/g; 

    print($message); 
    print({$log_g{'File'}} $message) if ($log_g{'File'}); 
    return (1); 
} 

# Private Functions 

sub PrivateLog_OpenFileLog 
{ 
    my $path = $log_g{'PathDirFileLog'}.'/global.log'; 

    if (!$log_g{'File'}) { 
     if (!open($log_g{'File'}, '>>', $path)) { 
      $log_g{'File'} = undef; 
      Log_Send("Failed to open '$path' in '>>' mode : $!"); 
      return (0); 
     } 
     select((select($log_g{'File'}), $|=1)[0]); 
    } 
    return (1); 
} 

sub PrivateLog_CloseFileLog 
{ 
    if ($log_g{'File'}) { 
     close($log_g{'File'}); 
     $log_g{'File'} = undef; 
    } 
    return (1); 
} 

1; 

"로그를 사용합니다;" 펄 스크립트에서. 언젠가는이 인쇄물이 여기에 있어야하고 언젠가는 없습니다 (이 상황은 필자가 쓴 다른 모듈에도 적용됩니다).

인스턴스별로이 스크립트에서 인쇄를 "활성화"또는 "비활성화"할 수 있습니까?

#!/usr/bin/perl -w 

use strict; 
use warnings; 

use Log; 

Log_Send("Hello world !"); 

내가 가져 오는 모든 모듈에서 "사용함/사용 안 함"디버그와 비슷합니다. 방법이 있습니까?

편집 : 내 고유 한 가져 오기 하위를 구현하려고했으나 @EXPORT 메카니즘을 잃었거나 복사 또는 붙여 넣기에서 소스 코드를 복사했지만 아무 것도 이해하지 못합니다. @EXPORT와 같은 mecanism으로 "가져 오기"를 구현하기위한 자습서가 있다면, 나는 그것에 만족할 것이다.

Answer 1

use을 호출하면 모듈의 네임 스페이스에서 import을 호출합니다. import 함수를 만들고 print을 해당 위치로 이동하고 print이 필요하지 않음을 나타내는 플래그를 수락하도록합니다.

Answer 2

코드에서 실행해야하는지 여부를 결정하는 요소는 실행중인 스크립트의 이름을 기반으로합니다. 나는 이것을 매우 이상하게 생각하고 매우 형편이 좋지 않은 디자인을 발견했지만, 실행중인 스크립트의 경로가 $0에 있기 때문에 성취 할 수 있습니다.

use File::Basename qw(basename); 

if (basename($0) eq 'main.pl') { 
    ... 
} 

---

나는 다음과 같은 인터페이스가 더 적합 할 것이라고 생각 다음과 같이

이

use Carp  qw(); 
use Exporter qw(); 

sub import { 
    my $class = shift; 

    my $saw_opts = 0; 
    while (@_ && $_[0] =~ /^-/) { 
     $saw_opts = 1; 
     my $opt = shift(@_); 
     if ($opt eq '--debug') { 
     ... 
     } 
     elsif ($opt eq '--') { 
     last; 
     } 
     else { 
     Carp::croak("Unknown option $opt\n"); 
     } 
    } 

    return if $saw_opts && !@_; 

    unshift @_, $class; 
    goto &Exporter::import; 
} 

당신은 그것을 사용할 수 있습니다 : 두 번째 생각에

use Log qw(--debug); 
use Log; 

    -or- 

use Log qw(--debug :DEFAULT); 

---

, 내가 가지고 나쁜. 그 어떤 것도 필요하지 않습니다. 원하는 것을 수행하고 스크립트에서 호출하는 하위를 만듭니다.

use Log; 
Log::init(debug => 1);