Print debugging statement: Difference between revisions
m
→{{header|Perl 6}}: remove unnecessary parenthesis & whitespace
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: remove unnecessary parenthesis & whitespace) |
||
Line 148:
## Testing / demonstration
# helper subs
sub alpha ($a) {
pdb ('a =>', $a + 3);
pdb 'string';
beta(7);
}
sub beta ($b) { pdb $b
sub gamma ($c) { beta
sub delta ($d) { gamma
my $a = 10;
pdb (.VAR.name, $_) with $a;
alpha($a);
delta("Δ");
.&beta for ^3;
{{out}}
| |||