Post-rebase cleanup

rules/S6664/vbnet/compliant.adoc

@@ -0,0 +1,16 @@
+
+[source,vbnet,diff-id=1,diff-type=compliant]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Information($"Evaluating {item.Name}")
+        Dim result = Evaluate(item)
+        If item.Name Is String.Empty Then
+            logger.Error("Invalid item name")
+        End If
+        logger.Information($"End item evaluation with result: {result}")
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/example.adoc

@@ -0,0 +1,13 @@
+
+[source,vbnet]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Debug($"Evaluating {item.Name}")
+        Dim result = Evaluate(item)
+        logger.Debug($"Evaluating resulted in {result}")
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/metadata.json

@@ -0,0 +1,2 @@
+{
+}

rules/S6664/vbnet/noncompliant.adoc

@@ -0,0 +1,17 @@
+
+[source,vbnet,diff-id=1,diff-type=noncompliant]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Information($"Evaluating {item.Name}") ' Noncompliant
+        Dim result = Evaluate(item)
+        logger.Information($"Evaluating resulted in {result}") ' Secondary 1
+        If item.Name Is String.Empty Then
+            logger.Error("Invalid item name")
+        End If
+        logger.Information("End item evaluation") ' Secondary 2
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/rule.adoc

@@ -0,0 +1,3 @@
+:language: vbnet
+
+include::../rule.adoc[]