view release on metacpan or  search on metacpan

lib/App/PerlNitpick/Rule/RemoveUnusedImport.pm  view on Meta::CPAN

                my ($module_name, $func_name) = $el =~ m/\A(.+)::([^:]+)\z/;
                $idx->{used_count}{$module_name}++;
                $idx->{used_count}{$func_name}++;
            }
        }
    }
    $self->idx($idx);
    return $idx;
}

sub looks_like_unused {
    my ($self, $module_name) = @_;
    return ! $self->idx->{used_count}{$module_name};
}

sub find_violations {
    my ($self, $elem) = @_;

    my %imported;
    my %is_special = map { $_ => 1 } qw(MouseX::Foreign);

lib/App/PerlNitpick/Rule/RewriteWithAssignmentOperators.pm  view on Meta::CPAN

    while (! $e->significant) {
        $e->remove;
        $e = $elem->next_sibling;
    }
}

sub rewrite {
    my ($self, $document) = @_;

    my @found = grep {
        # Find a statement that looks like $x = $x + $y;
        my $c0 = $_->schild(0);  # $x
        my $c1 = $_->schild(1);  # =
        my $c2 = $_->schild(2);  # $x
        my $c3 = $_->schild(3);  # +
        my $c4 = $_->schild(4);  # $y
        my $c5 = $_->schild(5);  # ;

        ($c1->isa('PPI::Token::Operator') && $c1->content eq '=') &&
        ($c5->isa('PPI::Token::Structure') && $c5->content eq ';') &&
        ($c3->isa('PPI::Token::Operator') && is_rewritable($c3->content)) &&