Linq.ps1 with Write-Verbose

Linq_verbose.ps1

function Where-Block
{
    [CmdletBinding()]
    [OutputType([scriptblock])]
    Param
    (
        [Parameter(Mandatory=$true,
                   ValueFromPipeline=$true,
                   Position=0)]
        [PSObject]
        $InputObject,
        [Parameter(Mandatory=$true,
                   Position=1)]
        [scriptblock]
        $Predicate
    )

    Begin
    {
    }
    Process
    {
        foreach($item in $InputObject)
        {
            return {
                if($item -is [scriptblock])
                {
                    $argument = &$item
                    if($argument -eq $null){ return }
                }else
                {
                    Write-Verbose ('[Where] Input Data = {0}' -f $item);
                    $argument = $item
                }
                Write-Verbose ('[Where] Predicate({0})' -f $argument);
                [bool]$result = &$Predicate $argument
                if($result -eq $true)
                {
                    Write-Verbose ('[Where] return {0}' -f $argument);
                    return $argument
                }
            }.GetNewClosure()
        }
    }
    End
    {
    }
}

function Select-Block
{
    [CmdletBinding()]
    [OutputType([scriptblock])]
    Param
    (
        [Parameter(Mandatory=$true,
                   ValueFromPipeline=$true,
                   Position=0)]
        [PSObject]
        $InputObject,
        [Parameter(Mandatory=$true,
                   Position=1)]
        [scriptblock]
        $Selector
    )

    Begin
    {
    }
    Process
    {
        foreach($item in $InputObject)
        {
            return {
                if($item -is [scriptblock])
                {
                    
                    $argument = &$item
                    if($argument -eq $null){ return }
                }else
                {
                    Write-Verbose ('[Select] Input Data ={0}' -f $item);
                    $argument = $item
                }
                Write-Verbose ('[Select] Predicate({0})' -f $argument);
                $return = &$Selector $argument
                Write-Verbose ('[Select] return {0}' -f $return);
                $return
                
            }.GetNewClosure()
        }
    }
    End
    {
    }
}

function Foreach-Block
{
    [CmdletBinding()]
    Param
    (
        [Parameter(Mandatory=$true,
                   ValueFromPipeline=$true,
                   Position=0)]
        [scriptblock[]]
        $Sequence,
        [Parameter(Position=1)]
        [scriptblock]
        $Action = $null
    )

    Begin
    {
    }
    Process
    {
        foreach($item in $Sequence)
        {
            
            $result = &$item
            if($result -eq $null) { continue }
            if($Action -eq $null)
            {
                Write-Verbose ('[Foreach] return {0}' -f $result);
                $result
            }else{
                Write-Verbose ('[Foreach] Action({0})' -f $result);
                &$Action $result
            }
        }
    }
    End
    {
    }
}