perlpilot

#!/usr/bin/perl6

class Point {
    has ($.name, $.x, $.y);
    method to_str { return $.name ~ " (" ~ $.x ~ "," ~ $.y ~ ")"; }
}

class Path {
    has Point @.path is rw;

perlpilot

diff --git a/build/Makefile.in b/build/Makefile.in
index 3c8c117..cc7d920 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -387,8 +387,10 @@ manifest:
        find t/spec -type f >>MANIFEST
        sort -u -o MANIFEST MANIFEST
 
+# Make will use this value unless VERSION was specified on the command line
+VERSION=$(shell date +"%Y-%m")

perlpilot

----------------
"Synopsis", "pass","fail","todo","skip","plan","spec"
"S02",        1708,     5,   120,   391,  2224,  2513
"S03",        1809,    78,   135,   267,  2289,  2661
"S04",         527,     0,    39,    54,   620,   905
"S05",        3746,     0,    25,   520,  4291,  5415
"S06",         723,     0,    38,   142,   903,  1123
"S09",          92,     0,     5,    14,   111,   153
"S10",          21,     0,    28,     5,    54,   111
"S11",          68,     0,     1,     1,    70,    99

perlpilot

Announce: Rakudo Perl 6 development release #22 ("Thousand Oaks")

On behalf of the Rakudo development team, I'm pleased to announce the
October 2009 development release of Rakudo Perl #22 "Thousand Oaks".
Rakudo is an implementation of Perl 6 on the Parrot Virtual Machine
(see http://www.parrot.org).  The tarball for the October 2009 release
is available from http://github.com/rakudo/rakudo/downloads

Due to the continued rapid pace of Rakudo development and the frequent
addition of new Perl 6 features and bugfixes, we recommend building Rakudo

perlpilot

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 074cf6f..7e338d0 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -102,9 +102,13 @@ method statementlist($/) {
     make $past;
 }
 
-method statement($/) { 
+method statement($/, $key?) {

perlpilot

Index: lib/Padre/Plugin/Perl6/Util.pm
===================================================================
--- lib/Padre/Plugin/Perl6/Util.pm	(revision 11008)
+++ lib/Padre/Plugin/Perl6/Util.pm	(working copy)
@@ -50,7 +50,7 @@
 
 	# Look for the explicit RAKUDO_DIR
 	if ( $ENV{RAKUDO_DIR} ) {
-		my $command = File::Spec->catfile( $ENV{RAKUDO_DIR}, 'parrot', $exe );
+		my $command = File::Spec->catfile( $ENV{RAKUDO_DIR}, 'parrot_install', $exe );

perlpilot

    regex word { \w+ [ \' \w+]? }
    regex dup  { « <word> \W+ $<word> » }

    if $s ~~ m/ <dup> / {
        say "Found '{$<dup><word>}' twice in a row";
    }

perlpilot

package Catalyst::View::MaybeMobileTT;

use Moose;

extends 'Catalyst::View::TT';

override 'process' => sub {
    my ($self,$c) = @_;

    my $template = $c->stash->{template}

perlpilot

[alias]
    ci = commit
    st = status
    co = checkout
    br = branch
    pullr = pull --rebase
    svnup = svn rebase --all

[user]
    name = Jonathan Scott Duff

perlpilot

$ cat o1
IN> 1+2*3-4**3**2
MATCH> 1+2*3-4**3**2
sum 
    mul pow val => 1
    0 => +
    mul 
      pow val => 2
      0 => *
      pow val => 3