मॉड्यूल में स्पष्ट रूप से परिभाषित विधियों/कार्यों की सूची प्राप्त करें

Question

काम पर हमारे यूनिट परीक्षणों पर कोड कवरेज की उदासीन स्थिति को महसूस करने के बाद मैं एक उपयोगिता बनाने की कोशिश कर रहा हूं जो हमारे कोड बेस और ध्वज फ़ाइलों को स्कैन करेगा जिसमें 100 नहीं है %।

पहुँच प्रतीक तालिका सीधे:: मैं दो दृष्टिकोण है कि तरीकों के सभी मिल पाया

for my $classname (@ARGV) { 
    eval "require $classname"; 
    die "Can't load $classname $EVAL_ERROR" 
     if $EVAL_ERROR; 

    no strict 'refs'; 
    METHODS: 
    for my $sym (keys %{ "${classname}::" }) { 
     next METHODS unless defined &{"${classname}::${sym}"}; 
     print "$sym\n"; 
    } 
} 

CPAN से Class::Inspector मॉड्यूल का उपयोग करें:

for my $classname (@ARGV) { 
    my @methods = Class::Inspector->methods($classname, 'public'); 
    print Dumper \@methods; 
} 

इन दो दृष्टिकोण इसी तरह के परिणाम का निर्माण किया; इनके साथ समस्या यह है कि वे पूरे मॉड्यूल के लिए उपलब्ध विधियों के सभी दिखाते हैं, न कि उस मॉड्यूल के के अंदर परिभाषित विधियों को न केवल।

क्या मॉड्यूल के लिए सुलभ तरीकों और मॉड्यूल के अंदर स्पष्ट रूप से परिभाषित विधियों के बीच अंतर करने का कोई तरीका है?

नोट: मैं अपने उपयोग के मामले में एक पूर्ण कोड कवरेज परीक्षण बनाने का प्रयास नहीं कर रहा हूं, मैं सिर्फ यह जांचना चाहता हूं कि सभी विधियों को कम से कम एक बार बुलाया गया है। Devel::Cover जैसे पूर्ण कवरेज परीक्षण हमारे लिए अधिक हैं।

Answer 1

प्रत्येक उप (या अधिक विशेष, प्रत्येक सीवी), याद करते हैं जो पैकेज यह मूल रूप में घोषित किया गया था टेस्ट मामला:।

Foo.pm:

package Foo; 
sub import { 
    *{caller . "::foo"} = sub{}; 
} 
1; 

Bar.pm:

package Bar; 
use Foo; 

our $bar; # introduces *Bar::bar which does not have a CODE slot 
sub baz {} 
1; 

प्रवेश प्रतीक तालिका अब foo और baz दोनों देता है। वैसे, मैं (कारण है कि एक पल में स्पष्ट हो जाएगा के लिए) इस तरह कि कोड लिखने चाहते हैं:

my $classname = 'Bar'; 
for my $glob (values %{ "${classname}::" }) { 
    my $sub = *$glob{CODE} or next; 
    say *$glob{NAME}; 
} 

इसके बाद, हम B module गौर करने underlying C data structure आत्मनिरीक्षण करना होगा। हम इसे B::svref_2object फ़ंक्शन के साथ करते हैं। यह एक B::CV वस्तु जो सुविधाजनक STASH क्षेत्र है (जो एक B::HV वस्तु जो एक NAME क्षेत्र है देता है) का उत्पादन करेगा:

use B(); 
my $classname = 'Bar'; 
for my $glob (values %{ "${classname}::" }) { 
    my $sub = *$glob{CODE} or next; 
    my $cv = B::svref_2object($sub); 
    $cv->STASH->NAME eq $classname or next; 
    say *$glob{NAME}; 
} 

में कुछ विवेक चेकों जोड़ें, और यह बहुत अच्छी तरह से काम करना चाहिए।

गतिशील वर्ग/मॉड्यूल लोडिंग स्ट्रिंग eval के माध्यम से नहीं की जानी चाहिए। इसके बजाय मैं Module::Runtime की सिफारिश:

Module::Runtime::require_module($classname);