mryan

class Book {
  has Str $.title ;
  has Int $.pages ;
  has Bool $.hard-back ;

  method gist { "$.title ($.pages pages)" }
}

sub MAIN( Str $title , Int $pages , Bool :$hard-back ) {
  my Book $b .= new: :$title  :$pages  :$hard-back ;

mryan

#!/usr/bin/env perl6
grammar G {
    my $SOLpos = -1 ;

    regex TOP {  <line>+  }

    method SOLscan($regex) {
        # Print out the string we're matching against for kicks
        say 'self.target: ' , self.target ;
        my $cur = self."!cursor_start_cur"() ;

mryan

$ git diff fudge
diff --git a/fudge b/fudge
index 975fcef..5a2fd4f 100755
--- a/fudge
+++ b/fudge
@@ -209,6 +209,10 @@ sub fudgeblock {
             my $args = $3;
             my $cmd = $4;
             my $applies = 0;
+