Comment puis-je faire un graphique d'appel d'analyse statique pour Perl?

ne peut pas être fait dans le cas général:

#!/usr/bin/perl

use strict;
use warnings;

use PPI;
use Data::Dumper;
use Scalar::Util qw/blessed/;

sub is {
    my ($obj, $class) = @_;
    return blessed $obj and $obj->isa($class);
}

my $program = PPI::Document->new(shift);

my $subs = $program->find(
    sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name }
);

die "no subroutines declared?" unless $subs;

for my $sub (@$subs) {
    print $sub->name, "\n";
    next unless my $function_calls = $sub->find(
        sub { 
            $_[1]->isa('PPI::Statement')             and
            $_[1]->child(0)->isa("PPI::Token::Word") and
            not (
                $_[1]->isa("PPI::Statement::Scheduled") or
                $_[1]->isa("PPI::Statement::Package")   or
                $_[1]->isa("PPI::Statement::Include")   or
                $_[1]->isa("PPI::Statement::Sub")       or
                $_[1]->isa("PPI::Statement::Variable")  or
                $_[1]->isa("PPI::Statement::Compound")  or
                $_[1]->isa("PPI::Statement::Break")     or
                $_[1]->isa("PPI::Statement::Given")     or
                $_[1]->isa("PPI::Statement::When")
            )
        }
    );
    print map { "\t" . $_->child(0)->content . "\n" } @$function_calls;
}

• appels à des fonctions qui n'utilisent pas entre parenthèses (par exemple imprimer "foo \ n"; code>) li>
• appels à des fonctions qui sont déréférencé (par exemple $ coderef -> () code>) li>
• les appels aux méthodes qui sont des chaînes (par exemple $ obj -> $ méthode () code>) li>
• appelle le putt la parenthèse ouverte sur une autre ligne li>
• d'autres choses que je n'ai pas pensé li> Ul>

  incorrectement prises p>

  • fonctions commentées (par exemple, #foo () code>) li>
  • certaines chaînes (par exemple "foo ()" code>) li>
  • d'autres choses que je n'ai pas pensé li> Ul>

    Si vous voulez une meilleure solution que bidouille sans valeur, il est temps de commencer à chercher dans PPI code> , mais même il aura des problèmes avec des choses comme $ obj -.> $ méthode () code> p> Juste parce que je me suis ennuyé, voici une version PPI code> . Il ne trouve que les appels de fonction (pas d'appels de méthode). Il fait également aucune tentative de garder les noms des sous-routines uniques (à savoir si vous appelez la même sous-programme plus d'une fois il affichera plus d'une fois). P>

    my $obj    = Obj->new;
    my $method = some_external_source();
    
    $obj->$method();
    

Je ne suis pas sûr qu'il soit 100% possible (car le code PERL ne peut pas être analysé statiquement en théorie, en raison de commencez par blocs et tels - voir très récent de la discussion ). De plus, les références de sous-programme peuvent rendre très difficiles à faire, même dans des endroits où commencer Les blocs n'entrent pas en jeu.

Cependant, Quelqu'un a apparemment fait la tentative - i Je ne le sais que, mais ne l'a jamais utilisé pour que l'acheteur soit méfiez-vous.