Perl6 - एक छोटा और अधिक के बारे में Phasers

say "Test say"; my $block = BEGIN { say "Compile say"; "Compile time " ~ now; } say $block; 

 Compile say Test say Compile time Instant:1377026323.088 

 say "Test say"; my $block = BEGIN { die "Compile die"; "Compile time " ~ now; } say $block; 

 say "Test say"; BEGIN { say "Compile say"; } say "Test say 2"; BEGIN { say "Compile say 2"; } 

 Compile say Compile say 2 Test say Test say 2 

 say "Test say"; BEGIN { say "Compile say"; } CHECK { say "Check say"; } say "Test say 2"; BEGIN { say "Compile say 2"; } CHECK { say "Check say 2"; } 

 Compile say Compile say 2 Check say 2 Check say Test say Test say 2 

 say "Test say"; BEGIN { say "Compile say"; } CHECK { say "Check say"; } INIT { say "Init say"; } say "Test say 2"; BEGIN { say "Compile say 2"; } CHECK { say "Check say 2"; } INIT { say "Init say 2"; } 

 Compile say Compile say 2 Check say 2 Check say Init say Init say 2 Test say Test say 2 

 say "Test say"; BEGIN { say "Compile say"; } CHECK { say "Check say"; } INIT { say "Init say"; } END { say "End say"; } say "Test say 2"; BEGIN { say "Compile say 2"; } CHECK { say "Check say 2"; } INIT { say "Init say 2"; } END { say "End say 2"; } die "test die"; 

 Compile say Compile say 2 Check say 2 Check say Init say Init say 2 Test say Test say 2 test die in block at bla\bla\bla\perl.p6:37 End say 2 End say 

 loop (my $i=0; $i <4; $i++) { ENTER { say $i; } say "Another loop entry"; } ENTER { say "Test Enter"; } 

 Test Enter 0 Another loop entry 1 Another loop entry 2 Another loop entry 3 Another loop entry 

 loop (my $i=0; $i <4; $i++) { LEAVE { say "Test leave"; } say "Another loop entry"; } 

 loop (my $i=0; $i <4; $i++) { FIRST {say "Test keep";} say "Another loop entry"; } 

 Test keep Another loop entry Another loop entry Another loop entry Another loop entry 

 if ( do {my $a = 10; $a = $a*2;} == 20) { say "It's ok"; } 

 my $i = once { say "Test once"; }; $i(); $i(); $i();