使用Perl模塊，當它在子程序中需要

Question

想象我的劇本有這兩種潛艇

sub with_json_mod{ 
    use JSON::Tiny; 
    blah blah blah; 
} 

sub without_json_mod{ 
    blah blah blah; 
} 

我只想用「without_json_mod」 JSON ::微小未安裝時。

如果JSON :: Tiny未安裝，並且我想使用without_json_mod子項，我該如何讓Perl不會失敗？

席力圖召「規定」中的「with_json_mod」，它似乎工作，但是當我試着讓它導入encode_json子在

sub with_json_mod{ 
    require JSON::Tiny qw/encode_json/; 
    blah blah blah; 
} 

謝謝

這是行不通的

Answer 1

這是因爲您錯誤地調用require。

你需要的是：

require JSON::Tiny; 
JSON::Tiny -> import ('encode_json'); 

你可以用，在一種 'EVAL' 也和測試$@值：

eval { require JSON::Tiny; }; 
warn $@ if $@; 

Answer 2

有use和require之間的兩個主要區別。

1. use發生在編譯時和require發生在運行時。
2. use在加載的包中調用import()方法（如果存在的話）並且require沒有。

所以你需要添加一個電話到import()。

sub with_json_mod{ 
    require JSON::Tiny; 
    JSON::Tiny->import('encode_json'); 
    blah blah blah; 
}