sirve - perl tutorial

¿Existe una herramienta para verificar un script de Perl en busca de declaraciones de uso innecesario?

Question

Para Python, hay un script llamado importchecker que le dice si tiene declaraciones de import innecesarias.

¿Existe una utilidad similar para las declaraciones de use (y require ) de Perl?

Answer 1

Aquí hay un guión que escribí para intentar esto. Es muy simplista y no automatizará nada para usted, pero le dará algo para comenzar.

#!/usr/bin/perl

use strict;
use v5.14;

use PPI::Document;
use PPI::Dumper;
use PPI::Find;
use Data::Dumper;

my %import;
my $doc = PPI::Document->new($ARGV[0]);

my $use = $doc->find( sub { $_[1]->isa(''PPI::Statement::Include'') } );
foreach my $u (@$use) {
    my $node = $u->find_first(''PPI::Token::QuoteLike::Words'');
    next unless $node;
    $import{$u->module} //= [];
    push $import{$u->module}, $node->literal;
}

my $words = $doc->find( sub { $_[1]->isa(''PPI::Token::Word'') } );


my @words = map { $_->content } @$words;

my %words;
@words{ @words } = 1;

foreach my $u (keys %import) {
    say $u;
    foreach my $w (@{$import{$u}}) {
        if (exists $words{$w}) {
            say "/t- Found $w";
        }
        else {
            say "/t- Can''t find $w";
        }
    }
}

Answer 2

Eche un vistazo a Devel :: TraceUse que podría darle una parte de lo que está buscando.