Skip to content

Commit 04d82d3

Browse files
committed
Add micro-benchmark for Parameter:D.sigil
1 parent d177e1a commit 04d82d3

File tree

1 file changed

+9
-0
lines changed

1 file changed

+9
-0
lines changed

microbenchmarks.pl

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -523,4 +523,13 @@
523523
perl6 => '$_ = "0" x 100 ~ "foo bar baz"; my $s = "foo bar baz"; loop (my $i = 0; $i < SCALE; $i++) { /$s/ }',
524524
nqp => undef,
525525
},
526+
{
527+
name => 'for_param_sigil',
528+
tags => [qw( for Parameter sigil )],
529+
scale => 1 << 10,
530+
expected => "\\",
531+
perl5 => undef,
532+
perl6 => 'sub a(\) {}; my $p = &a.signature.params[0]; my $a; for ^SCALE { $a = $p.sigil }; say $a',
533+
nqp => undef,
534+
},
526535
]

0 commit comments

Comments
 (0)