Qual è il modo migliore per scoprire tutte le subroutine di un modulo Perl?

Question

Qual è il modo migliore per scoprire in modo programmatico tutte le subroutine di un modulo perl? Questo potrebbe essere un modulo, una classe (no @EXPORT) o qualcosa di intermedio.

Modifica: tutti i metodi riportati di seguito sembrano funzionare. Probabilmente userò la classe :: Sniff o Class :: Inspector in produzione. Tuttavia, la risposta di Leon è contrassegnata come "accettata" poiché risponde alla domanda come posta, anche se deve essere utilizzato no strict 'refs'. :-) Class :: Sniff potrebbe essere una buona scelta mentre progredisce; sembra che ci sia passato un sacco di riflessioni.

Answer 1

sub list_module { 
    my $module = shift; 
    no strict 'refs'; 
    return grep { defined &{"$module\::$_"} } keys %{"$module\::"} 
} 

ETA: se si desidera filtrare subroutine importati, si può fare questo

use B qw/svref_2object/; 

sub in_package { 
    my ($coderef, $package) = @_; 
    my $cv = svref_2object($coderef); 
    return if not $cv->isa('B::CV') or $cv->GV->isa('B::SPECIAL'); 
    return $cv->GV->STASH->NAME eq $package; 
} 

sub list_module { 
    my $module = shift; 
    no strict 'refs'; 
    return grep { defined &{"$module\::$_"} and in_package(\&{*$_}, $module) } keys %{"$module\::"} 
} 

Answer 2

Date un'occhiata a questo: Class::Sniff

L'interfaccia è piuttosto ad-hoc al momento ed è probabile che cambi. Dopo aver creato una nuova istanza, chiamare il metodo del rapporto è la scelta migliore. È quindi possibile esaminare visivamente che per cercare potenziali problemi:

my $sniff = Class::Sniff->new({class => 'Some::Class'}); 
print $sniff->report; 

Questo modulo tenta di aiutare i programmatori a trovare 'il codice odori' nel codice orientato agli oggetti. Se segnala qualcosa, ciò non significa che il tuo codice sia sbagliato. Significa solo che potresti voler guardare il tuo codice un po 'più da vicino per vedere se hai qualche problema.

Al momento attuale, si presuppone che l'ordine di ricerca predefinito di Perl sia il più a sinistra, sia la profondità. Si possono modificare questo in futuro (e c'è un work-in giro con il metodo percorsi più su questo più tardi.) ...

Answer 3

Class::Inspector:

Class :: Inspector consente di ottenere informazioni su una classe caricata. La maggior parte o tutte queste informazioni possono essere trovate in altri modi, ma non sono sempre molto amichevoli e di solito implicano un livello relativamente alto di magia Perl o un codice strano e dall'aspetto insolito. Class :: Inspector tenta di fornire un'interfaccia più facile e più amichevole a questa informazione ...