Get script module files with a line length longer than 120 characters

Get-ScriptLinesWithMinimumLength.ps1

$scriptModulesFiles = Get-ChildItem -Path '.' -Recurse -Include '*.psm1'

$lines = [PSCustomObject] @()

$scriptModulesFiles | % {
    $parseErrors = $null
    $definitionAst = [System.Management.Automation.Language.Parser]::ParseFile($_.FullName, [ref] $null, [ref] $parseErrors)

    if ($parseErrors)
    {
        throw $parseErrors
    }

    $astFilter = {
         $args[0] -is [System.Management.Automation.Language.CommandAst] `
         -and $args[0].Extent.EndColumnNumber -gt 120
    }

    $commandAsts = $definitionAst.FindAll($astFilter, $true)

    foreach ($commandAst in $commandAsts)
    {
        $lines += [PSCustomObject] @{
            Script = $_.Name
            Line = $commandAst.Extent.StartLineNumber
            Length = $commandAst.Extent.EndColumnNumber
            Text = $commandAst.Extent.EndScriptPosition.Line
        }
    }
}

$lines