view release on metacpan or  search on metacpan

lib/Test/UsedModules/PPIDocument.pm  view on Meta::CPAN

}

sub _remove_unnecessary_tokens {
    my ( $document, $optional_token ) = @_;

    my @surplus_tokens = (
        'Operator',
        'Number',
        'Comment',
        'Pod',
        'BOM',
        'Data',
        'End',
        'Prototype',
        'Separator',
        'Whitespace'
    );

    if ($optional_token) {
        push @surplus_tokens, $optional_token;
    }