File Coverage

blib/lib/App/PerlNitpick/Rule/DedupeIncludeStatements.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	27	32	84.3

use Moose;

    my ($self, $document) = @_;

    my %used;
    my @to_delete;
    for my $el (@{ $document->find('PPI::Statement::Include') ||[]}) {
        next unless $el->type && $el->type eq 'use';
        my $module = $el->module;
        my $code = "$el";
        if ($used{$code}) {
            push @to_delete, $el;
        } else {
            $used{$code} = 1;
        }
    }

    for my $el (@to_delete) {
        $el->remove;
    }

    return $document;
}

no Moose;
1;


=head1 DedupeIncludeStatements

In this rule, multiple identical "use" statements of the same module are merged.

For example, this code:

    use File::Temp;
    use Foobar;
    use File::Temp;

... is transformed to:

    use File::Temp;
    use Foobar;

Two statements are consider identical if, and only if, they are literally the same, character-to-character.