# New Ticket Created by  Damian Conway 
# Please include the string:  [perl #128760]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=128760 >


> perl6 --version
This is Rakudo version 2016.07.1 built on MoarVM version 2016.07
implementing Perl 6.c.

Adding a new postcircumfix operator increases compile-time by over 1 second
per operator definition.
For example:

BEGIN my $start = now;
BEGIN { say "Compiling..." };
INIT  { say "Compiled after {now - $start} seconds"; }
END   { say "Done after {now - $start} seconds"; }

multi postcircumfix:« ⦋ ⦌ » (Any $prob, Any $state) {
    $state => $prob
}
BEGIN  { say "First definition after {now - $start} seconds"; }

multi postcircumfix:« ⦋ ⦌ » (Numeric $prob, Any $state) {
    $state => $prob
}
BEGIN  { say "Second definition after {now - $start} seconds"; }

multi postcircumfix:« ⦋ ⦌ » (Str $prob, Any $state) {
    $state => $prob
}
BEGIN  { say "Third definition after {now - $start} seconds"; }

multi postcircumfix:« ⦋ ⦌ » (Int $prob, Any $state) {
    $state => $prob
}
BEGIN  { say "Fourth definition after {now - $start} seconds"; }

say   0.5⦋'cat'⦌;
say 'cat'⦋0.5⦌;
say 'cat'⦋'cat'⦌;
say     1⦋'cat'⦌;
say     1⦋1⦌;

Reply via email to