feat: Out-JSON ( Fixes #727 )

Commands/JSON/Out-JSON.ps.ps1

@@ -0,0 +1,42 @@
+[ValidatePattern("JSON")]
+param()
+
+function Out-JSON {
+    <#
+    .SYNOPSIS
+        Outputs objects as JSON
+    .DESCRIPTION
+        Outputs objects in JSON.    
+    #>
+    [CmdletBinding(PositionalBinding=$false)]
+    [Alias('text.json.out')]
+    param(
+    # The input object.  This will form the majority of the JSON.
+    [vfp()]
+    [PSObject]
+    $InputObject,
+
+    # Any arguments.  These will be appended to the input.
+    [Parameter(ValueFromRemainingArguments=$true)]
+    [PSObject[]]
+    $ArgumentList,
+
+    # The depth of the JSON.  By default, this is the FormatEnumerationLimit.
+    [int]
+    $Depth = $FormatEnumerationLimit
+    )
+
+    $inputAndArguments = @( $input ) + $ArgumentList
+    if (-not $depth) { 
+        $depth = if ($FormatEnumerationLimit) {
+            $FormatEnumerationLimit
+        } else {
+            4        
+        }
+    }
+    if ($inputAndArguments.Length -eq 1) {
+        ConvertTo-Json -InputObject $inputAndArguments[0] -Depth $Depth
+    } else {
+        $inputAndArguments | ConvertTo-Json -Depth $Depth
+    }
+}