Print debugging statement: Difference between revisions

Content added Content deleted

Inline

@@ Line 148: / Line 148: @@
 ## Testing / demonstration
-# helper subs                 #line 22
+# helper subs                #line 22
-sub alpha ($a) {              #line 23
+sub alpha ($a) {             #line 23
-    pdb ('a =>', $a + 3);     #line 24
+    pdb ('a =>', $a + 3);    #line 24
-    pdb 'string';             #line 25
+    pdb 'string';            #line 25
-    beta(7);                  #line 26
+    beta(7);                 #line 26
-}                             #line 27
+}                            #line 27
-sub beta  ($b) { pdb $b     } #line 28
+sub beta  ($b) { pdb $b    } #line 28
-sub gamma ($c) { beta($c)   } #line 29
+sub gamma ($c) { beta $c   } #line 29
-sub delta ($d) { gamma ($d) } #line 30
+sub delta ($d) { gamma $d  } #line 30
-                              #line 31
+                             #line 31
-my $a = 10;                   #line 32
+my $a = 10;                  #line 32
-pdb (.VAR.name, $_) with $a;  #line 33
+pdb (.VAR.name, $_) with $a; #line 33
-alpha($a);                    #line 34
+alpha($a);                   #line 34
-delta("Δ");                   #line 35
+delta("Δ");                  #line 35
-.&beta for ^3;                #line 36</lang>
+.&beta for ^3;               #line 36</lang>
 {{out}}