gfldex

use v6;

role BaseRole[::T] is export {
	has T $.attr is rw;
}

class BaseClass does BaseRole[Str] is export {

}

gfldex

unit module Module;

sub EXPORT ($var) {
	{ foo => sub () {} }
}

gfldex

http://froggs.de/perl6/rakudo-star-2016.01-x86_64-RC1%20(JIT).msi

gfldex

[Pod::Block::Named.new(name => "pod", config => {}, contents => [
    Pod::Item.new(level => 1, config => {:numbered("1")}, contents => [Pod::Block::Para.new(config => {}, contents => ["Install Rakudobrew: ", Pod::FormattingCode.new(type => "L", meta => [], config => {}, contents => ["https://github.com/tadzik/rakudobrew"]), ""])]), 
    Pod::Item.new(level => 1, config => {:numbered("1")}, contents => [Pod::Block::Para.new(config => {}, contents => ["Install Rakudo: Type the following command in the terminal rakudobrew build moar"])]),
    Pod::Item.new(level => 1, config => {:numbered("1")}, contents => [Pod::Block::Para.new(config => {}, contents => ["Install Panda: Type the following command in the terminal rakudobrew build-panda"])]), 
    Pod::Block::Para.new(config => {}, contents => ["Foo Bar"]),
    Pod::Item.new(level => 1, config => {:numbered("1")}, contents => [Pod::Block::Para.new(config => {}, contents => ["Install Panda: Type the following command in the terminal rakudobrew build-panda"])])
])

gfldex

Earlier failure:
 Failed to open file /usr/local/src/rakudo/install/share/perl6/site/precomp/.lock: permission denied
  in any  at /usr/local/src/rakudo/install/share/perl6/runtime/CORE.setting.moarvm line 1
  in any load_module at src/Perl6/World.nqp line 1185
  in any do_pragma_or_load_module at src/Perl6/World.nqp line 1115
  in any statement_control:sym<use> at src/Perl6/Grammar.nqp line 1549
  in any statement_control at /usr/local/src/rakudo/install/share/nqp/lib/Perl6/Grammar.moarvm line 1
  in any statement at src/Perl6/Grammar.nqp line 1244
  in any statementlist at src/Perl6/Grammar.nqp line 1173

gfldex

use v6;

class L {
    method log($l, $s) { say "$l: $s" };
    method FALLBACK($name, $s) {
        my $c_name = $name;
        if ($name ~~ / log (\d) /) {
            my $level = $0;
            self.^add_method($name, method (Str $msg) {
                self.log($level, $msg)

gfldex

my @options = <a b c d e>;
my %short-flags\
    <== map { $_.uc => $_ }\
    <== grep { $_.uc }\
    <== @options;

gfldex

class DefinedAlternationContainer { has $.item; has $.condition-was-defined };
sub infix:<?//>(\a, \b -->DefinedAlternationContainer) { with a { return DefinedAlternationContainer.new(item => b, condition-was-defined => True) };
DefinedAlternationContainer.new(item => Any, condition-was-defined => False) };
sub infix:<!!>(DefinedAlternationContainer:D \cont, \b){ cont ?? cont.item !! b };
my $v = 2 but False;
dd $v ?// 2 !! 4;
$v = Any;
dd $v ?// 2 !! 4;

gfldex

index-entry-=>_
index-entry-:
index-entry-::()-
index-entry-:!
index-entry--A
index-entry-accessor_methods-
index-entry-also_declarator-also
index-entry-anonymouse_arguments_(Signature)-
index-entry-asynchronous_LAST_(phasers)-LAST
index-entry-attributes-

gfldex

«index-entry-accessor_methods» «Pod::FormattingCode.new(type => "X", meta => ["accessor methods"], config => {}, contents => [""])»
«index-entry-also_declarator-also» «Pod::FormattingCode.new(type => "X", meta => ["also declarator"], config => {}, contents => ["", Pod::FormattingCode.new(type => "C", meta => [""], config => {}, contents => ["also"]), ""])»
«index-entry-anonymouse_arguments_(Signature)» «Pod::FormattingCode.new(type => "X", meta => ["anonymouse arguments (Signature)"], config => {}, contents => [])»
«index-entry--A» «Pod::FormattingCode.new(type => "X", meta => [], config => {}, contents => ["-A"])»
«index-entry-asynchronous_LAST_(phasers)-LAST» «Pod::FormattingCode.new(type => "X", meta => ["asynchronous LAST (phasers)"], config => {}, contents => ["LAST"])»
«index-entry-attributes» «Pod::FormattingCode.new(type => "X", meta => ["attributes"], config => {}, contents => [""])»
«index-entry-Baggy_addition_operator» «Pod::FormattingCode.new(type => "X", meta => [], config => {}, contents => ["Ba