mfollett

$leela.eat('dog food');
$leela.bark();
$leela.eat('grass');

my $old_tag = $leela.tag();
$leela.tag = 'Leela Follett';
$leela.wag();
say $leela.name ~ '\'s tag said ' ~ $old_tag ~ ', now it says ' ~ $leela.tag;

mfollett

class Tail
{
    method wag()
    {
        say "swish, swish, swish";
    }
}

class Dog is Animal
{

mfollett

my $dog = Animal.new( name => 'Leela' );
$dog.eat('dog food');
$dog.sleep();

mfollett

class Animal
{
   has Str $.name;

   method eat( $food )
   {
       say "$.name is eating some $food";
   }

   method sleep($self:)

mfollett

my $stream;

{
    my $previous = 0;
    $stream = sub { $previous++ };
}

mfollett

my $stream;
{
    my $previous = 0;
    $stream = sub { $previous++ };
}

my $limited_stream;
{
    my $previous = 0;
    $limited_stream = sub { return $previous if $previous++ < 10; return; };

mfollett

while( defined (my $val = $stream->() ) )
{
    say "We've reached number $val!";
}

mfollett

my @list = 1..100;
for @list -> $left, $center = '', $right = ''
{
    say "$left - $center - $right";
}

mfollett

my @list = 1..100;
for @list -> $left, $center?, $right?
{
    say "$left - $center - $right";
}

mfollett

my @list = 1..100;
for @list -> $left, $center, $right
{
    say "$left - $center - $right";
}
~/Documents/Projects/rakudo