view release on metacpan or  search on metacpan

lib/Claude/Agent/Code/Review/Filter.pm  view on Meta::CPAN

    # Filter out complaints about documentation/comments being "unnecessary" or "redundant"
    if ($desc =~ /(?:comment|documentation).*(?:unnecessary|redundant|obvious)/i) {
        return 1;
    }

    # Filter out complaints about "no critic" directives - these are intentional suppressions
    if ($desc =~ /no.critic.*(?:directive|issue|apply|not.*needed)|directive.*no.critic/i) {
        return 1;
    }

    # Filter out "fragile" position comparison complaints when using valid length-based comparisons
    # Comparing length of captured prefix content is a valid way to compare positions
    if ($desc =~ /position.*(?:fragile|incorrect)|(?:fragile|incorrect).*position|length\(\).*position/i) {
        if ($context =~ /length\(\$\w+\)\s*<\s*length\(\$\w+\)/i) {
            return 1;
        }
    }

    # Check for regex edge cases that are acknowledged
    if ($desc =~ /regex.*(?:edge|corner|doesn't capture|doesn't handle)|(?:edge|corner).*case/i) {
        if ($context =~ /\# .*(?:handle|capture|parse)|TODO|basic/i) {
            return 1;
        }