<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet href="chrome://global/skin/" type="text/css"?><?xml-stylesheet href="takahashi.css" type="text/css"?><page xmlns="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul" id="presentation" xmlns:html="http:/www.w3.org/1999/xhtml" orient="vertical" onkeypress="Presentation.onKeyPress(event);"><html:textarea id="builtinCode" style="visibility: collapse">

☺{{#c|Deploying}}☻
Perl 6
{{#q|Audrey Tang}}
----
Perl 6
is here Today!
----
(ok, that's yesteryear's news)
----
Pugs
&amp;
Parrot
----
Great for
experimenting
----
But {{#i|not}}
for production
----
...not until Christmas
----
CPAN is
the language
----
Perl is
just syntax
----
Perl
5.000b3h
(October 1994)
----
 use 5.000;
 use strict;
 require 'fastcwd.pl';
 require 'newgetopt.pl';
 require 'exceptions.pl';
 ...
----
Continuity++
----
Pugs
6.2.2
(June 2005)
----
 use v6-pugs;
 use perl5:DBI;
 use perl5:Encode;
 use perl5:Template;
 ...
----
Still need to
install Pugs
----
Perl
5.9.3
(Jan 2006)
----
 use feature qw(switch say err ~~);
 given (shift()) {
    when ['-h', '--help'] {
        say "Usage: $0";
    }
    default {
        $0 ~~ 'moose.exe'
            err die "Not Moose";
    }
 }
----
How to get Perl 6
into Production?
----
Parrot's Philosophy:
Make them come to us...
---- 
- Tcl Frontend
- Python Frontend
- Scheme Frontend
----
Pugs's Philosophy:
...let us come to them!
----
- Haskell Backend
- JavaScript Backend
- Perl 5 Backend
---- 
Perl 5
Backend
----
Perl 6
Runtime
---- 
Implemented in
Pure Perl 5
({{#i|not}} source filters)
----
Available 
On CPAN
Today
----
Moose.pm
☯
----
Objects
With Class
----
  use v6-alpha;
  class Point;
  
                  
  has $.x is rw; # instance attributes
  has $.y;       # default "is readonly"
  
  method clear () {
  
  
      $.x = 0; # accessible within the class 
      $.y = 0;
  }
----
  use v5;
  package Point;
  use Moose;
                  
  has x => (is => 'rw');
  has y => (is => 'ro');
  
  sub clear {
      my $self = shift;
  
      $self->{x} = 0;
      $self->y(0);    
  }
----
Subclassing
----
  use v6-alpha;
  class Point3D;
  
  
  is Point;
  
  has $.z;
  
  method clear () {
      
      call; 
      $.z = 0;
  };
----
  use v5;
  package Point3D;
  use Moose;
  
  extends 'Point';
  
  has z => (isa => 'Int');
  
  override clear => sub {
      my $self = shift;
      super;
      $self->{z} = 0;
  };
----
  use v5;
  package Point3D;
  use Moose;
  
  extends 'Point';
  
  has z => (isa => 'Int');
  
  after clear => sub {
      my $self = shift;
       
      $self->{z} = 0;
  };
----
Constraints
----
  use v6-alpha;
  class BankAccount;
  
  
  has Int $.balance is rw = 0;
  
  method deposit ($amount) {
      
      $.balance += $amount;
  }
  
  method withdraw ($amount) {
      
      my $current_balance = $.balance;
      ($current_balance >= $amount)
          err fail "Account overdrawn";
      $.balance = $current_balance - $amount;
  }
----
  use v5;
  package BankAccount;
  use Moose;
  
  has balance => (isa => 'Int', is => 'rw', default => 0);
  
  sub deposit {
      my ($self, $amount) = @_;
      $self->balance($self->balance + $amount);
  }
  
  sub withdraw {
      my ($self, $amount) = @_;
      my $current_balance = $self->balance;
      ($current_balance >= $amount)
          or die "Account overdrawn";
      $self->balance($current_balance - $amount);
  }
----
  use v6-alpha;
  class CheckingAccount;
  
  is BankAccount;
  
  has BankAccount $.overdraft_account is rw;
  
  method withdraw ($amount) {
   
      my $overdraft_amount = $amount - $.balance;
      if ($.overdraft_account and $overdraft_amount > 0) {
          $.overdraft_account.withdraw($overdraft_amount);
          $.deposit($overdraft_amount);
      }
      call;
  };
----
  use v5;
  package CheckingAccount;
  use Moose;
  extends 'BankAccount';
  
  has overdraft_account => (isa => 'BankAccount', is => 'rw');	
  
  before withdraw => sub {
      my ($self, $amount) = @_;
      my $overdraft_amount = $amount - $self->balance;
      if ($self->overdraft_account and $overdraft_amount > 0) {
          $self->overdraft_account->withdraw($overdraft_amount);
          $self->deposit($overdraft_amount);
      }
      
  };
----
Laziness
----
  use v6-alpha;
  class BinaryTree is rw;

  has Any $.node;
  has BinaryTree $.parent handles { parent_node => 'node' };
  has BinaryTree $.left  = { lazy { BinaryTree.new( parent => self ) } };
  has BinaryTree $.right = { lazy { BinaryTree.new( parent => self ) } };
----
  use v5;
  package BinaryTree;
  use Moose;
  
  has node => (is => 'rw', isa => 'Any');
  has parent => (
      is        => 'rw',
      isa       => 'BinaryTree',
      handles   => { parent_node => 'node' },
      weak_ref  => 1,
  );
  has left => (
      is        => 'rw',	
      isa       => 'BinaryTree',
      default   => sub { BinaryTree->new(parent => $_[0]) },       
      lazy      => 1,
  );
  has right => (
      is        => 'rw',	
      isa       => 'BinaryTree',
      default   => sub { BinaryTree->new(parent => $_[0]) },       
      lazy      => 1,
  );
----
Subtypes
----
  use v6-alpha;
  class Address;
  use perl5:Locale::US;
  use perl5:Regexp::Common &lt;zip $RE>;
  
  my $STATES = Locale::US.new;
  subset US_State of Str where {
      $STATES{any(&lt;code2state state2code>)}{.uc};
  };

  has Str       $.street is rw;
  has Str       $.city   is rw;
  has US_State  $.state is rw;
  has Str       $.zip_code is rw where {
      $_ ~~ $RE&lt;zip>&lt;&lt;US>{'-extended' => 'allow'}
  };
----
  use v5;
  package Address;
  use Moose;
  use Moose::Util::TypeConstraints;
  use Locale::US;
  use Regexp::Common 'zip';
  
  my $STATES = Locale::US->new;
  subtype USState => as Str => where {
      $STATES->{code2state}{uc($_)}
   or $STATES->{state2code}{uc($_)};
  }

  has street   => (is => 'rw', isa => 'Str');
  has city     => (is => 'rw', isa => 'Str');
  has state    => (is => 'rw', isa => 'USState');
  has zip_code => (
      is  => 'rw',
      isa => subtype Str => where {
          /$RE{zip}{US}{-extended => 'allow'}/
      },
  );
----
More features
----
- Roles
- Coercion
- Metaclasses
----
Pugs::Compiler::Rule
☯
----
Regex
Objects
----
 use v6-alpha;
 my $txt = 'Car=ModelT,1909';
 my $pat = rx{
     Car -
         [ ( Ferrari )
         | ( ModelT , (\d\d\d\d) )
         ]
 };
 $txt ~~ $pat err fail "Cannot match";
----
 use v5;
 use Pugs::Compiler::Regex;
 my $pat = Pugs::Compiler::Regex->compile(q(
     Car -
         [ ( Ferrari )
         | ( ModelT , (\d\d\d\d) )
         ]
 ));
 $pat->match($txt) or die "Cannot match";
----
Match
Objects
----
 use v6-alpha;
 my $pat = rx{
     Car = [ ( Ferrari ) | ( ModelT , (\d\d\d\d) ) ]
 };

 my $match = ('Car=ModelT,1909' ~~ $pat);
 say $match;            # "Car=ModelT,1909"
 say $match[0];         # undef
 say $match[1];         # "ModelT,1909"
 say $match[1][1];      # "1909"
 say $match[1][1].from; # 11
 say $match[1][1].to;   # 15
----
 use v5;
 use Pugs::Compiler::Regex;
 my $pat = Pugs::Compiler::Regex->compile(q(
 my $pat = rx{
     Car = [ ( Ferrari ) | ( ModelT , (\d\d\d\d) ) ]
 };
 use feature qw( say );
 my $match = $pat->match('Car=ModelT,1909');
 say $match;                # "Car=ModelT,1909"
 say $match->[0];           # undef
 say $match->[1];           # "ModelT,1909"
 say $match->[1][1];        # "1909"
 say $match->[1][1]->from;  # 11
 say $match->[1][1]->to;    # 15
----
Named
Captures
----
 use v6-alpha;
  
 my $pat = rx{
     Car = [ ( Ferrari ) | ( ModelT , $&lt;year>:=[\d\d\d\d] ) ]
 };
 my $match = ('Car=ModelT,1909' ~~ $pat);
 say $match;                    # "Car=ModelT,1909"
 say $match[1];                 # "ModelT,1909"
 say $match[1]&lt;year>;        # "1909"
 say $match[1]&lt;year>.from;   # 11
 say $match[1]&lt;year>.to;     # 15
----
 use v5;
 use Pugs::Compiler::Regex;
 my $pat = Pugs::Compiler::Regex->compile(q(
     Car = [ ( Ferrari ) | ( ModelT , $&lt;year>:=[\d\d\d\d] ) ]
 };
 use feature qw( say );
 my $match = $pat->match('Car=ModelT,1909');
 say $match;                    # "Car=ModelT,1909"
 say $match->[1];               # "ModelT,1909"
 say $match->[1]{year};         # "1909"
 say $match->[1]{year}->from;   # 11
 say $match->[1]{year}->to;     # 15
----
Grammar
Modules
----
 use v6-alpha;

 grammar CarInfo;

 regex car {
     Car = [ ( Ferrari ) | ( ModelT , &lt;year> ) ]
 } 
 regex year {
     \d\d\d\d
 } 
 
 module Main;
 my $match = ('Car=ModelT,1909' ~~ CarInfo.car);
----
 use v5;
 use Pugs::Compiler::Regex;
 package CarInfo;
 use base 'Pugs::Grammar::Base';
 *car = Pugs::Compiler::Regex->compile(q(
     Car = [ ( Ferrari ) | ( ModelT , &lt;year> ) ]
 ))->code;
 *year = Pugs::Compiler::Regex->compile(q(
     \d\d\d\d
 ))->code;

 package main;
 my $match = CarInfo->car('Car=ModelT,1909');
----
Result
Objects
----
 # Typical Perl5 code
 use v5;
 my $txt = 'Car=ModelT,1909';
 my $pat = qr{
     Car = (?: ( Ferrari ) | ( ModelT , (\d\d\d\d) ) )
 }x;
 my $obj;
 if ($txt =~ $pat) {
     if ($1) {
         $obj = Car->new(color => "red");
     } elsif ($2) {
         $obj = Car->new(color => "black", year => $3);
     }
 }
----
 use v6-alpha;
 my $txt = 'Car=ModelT,1909';
 my $pat = rx{
     Car = [ Ferrari
             { return Car.new(:color&lt;red>) }
           | ModelT , $&lt;year>:=[\d\d\d\d]
             { return Car.new(:color&lt;black> :$&lt;year>) }
           ]
 };
 my $obj = $($txt ~~ $pat);
----
 use v5;
 use Pugs::Compiler::Regex;
 my $txt = 'Car=ModelT,1909';
 my $pat = Pugs::Compiler::Regex->compile(q(
     Car = [ Ferrari
             { return Car->new(color => 'red') }
           | ModelT , $&lt;year>:=[\d\d\d\d]
             { return Car->new(color => 'black', year => $&lt;year>) }
           ]
 ));
 my $obj = $pat->match($txt)->();
 print $obj->{year}; # 1909
----
Backtrack
Control
----
 use v6-alpha;
 "ModelT2005" ~~ regex {
     Car = ModelT \d* ;
 };
----
 use v5;
 "ModelT2005" =~ qr{
     Car = ModelT \d* ;
 }x;
----
 use v6-alpha;
 "ModelT2005" ~~ token {
     Car = ModelT \d* ;
 }
----
 use v5;
 "ModelT2005" =~ qr{
     Car = ModelT (?> \d* ) ;
 }
----
 use v6-alpha;
 "ModelT2005" ~~ rule {
     Car = ModelT \d* ;
 }
----
 use v5;
 "ModelT2005" =~ qr{
     Car \s* = \s* ModelT \s+ (?> \d* ) \s* ;
 }
----
Module::Compile
☯
----
Everyone
hates Spiffy
----
  use Spiffy -Base;
  my sub private {
      "It's a private method here";
  }
  sub public {
      $self->$private;
  }
  sub new() {
      my $self = super;
      $self->init;
      return $self;
  }
----
Too much Magic
----
YAML used Spiffy
----
IO::All uses Spiffy
----
Kwiki uses IO::All
----
Ergo...
----
Everyone hates Ingy
----
What's hateful about Spiffy?
----
It's a Source Filter!
----
  use Filter::Simple sub {
      s[(^ sub \s+ \w+ \s+ \{ )]
       [$1\nmy $self = shift;\n]emgx;
  }
----
Filter::Simple
Bad
----
- Extra dependency
- Slows down startup
- Breaks perl -d
- Wrecks other Source Filters
----
We can fix it!
----
  use Filter::Simple sub {
      s[(^ sub \s+ \w+ \s+ \{ )]
       [$1\nmy $self = shift;\n]emgx;
  }
----
  use Filter::Simple::Compile sub {
      s[(^ sub \s+ \w+ \s+ \{ )]
       [$1\nmy $self = shift;\n]emgx;
  }
----
How?
----
Little-known fact:
----
Every {{#c|use Foo}}
looks for {{#c|Foo.pmc}}
{{#i|before}} {{#c|Foo.pm}}
----
  echo 'print "Hello\n"' > Foo.pmc
  perl -MFoo -e1
----
Save filtered result to .pmc...
----
...no filtering needed next time!
----
Module::Compile
Good
----
- Free of user-side dependencies
- Fast startup time
- Debuggable source is all in .pmc
- Allows composable precompilers
----
  package Foo;
  use Module::Compile‐base;
   
  sub pmc_compile {
      my ($class, $source, $context) = @_;
      # Convert $source into $compiled_output...
      return $compiled_output;
  }
----
Filter::Simple::Compile
----
 # Drop-in replacement to Filter::Simple
 package Acme::Y2K;
 use Filter::Simple::Compile sub {
    tr/y/k/;
 }
----
 # It's even lexical!
 {
    use Acme::Y2K;
    pacyage Foo;
    mydir "tmp";
 }
 my $normal_code_here;
----
Filter::Macro
----
  package MyHandyModules;
  use Filter::Macro;
  # lines below will be expanded into caller's code
  use strict;
  use warnings;
  use Fatal qw( open close );
  use FindBin qw( $Bin );
----
  # In your code
  package MyApp;
  use MyHandyModules;
  print "I'm invoked from $Bin";
----
  # Makefile.PL
  use inc::Module::Install;
    
  name     'MyApp';
  all_from 'lib/MyApp.pm';
    
  {{#c|pmc_support;}}
    
  WriteAll;
----
No dependency on
MyHandyModules.pm
----
Inline::Module
----
  # Aww...
  package MyApp;
  use File::Slurp qw( slurp );
  use HTTP::MessageParser;
----
  # Yay!
  package MyApp;
  use Inline::Module 'File::Slurp' => qw( slurp );
  use Inline::Module 'HTTP::MessageParser';
----
Zero
Dependencies
----
So, what's this got to do
with deploying Perl 6?
----
 use v6-alpha;
----
v6.pm
----
Write Perl 6
compile to Perl 5
----
Takes
Rule.pm
----
 use v6-alpha;
 
 grammar Pugs::Grammar::Rule;
 rule ws :P5 {
     ^((?:\s|\#(?-s:.)*)+
 )}
 ...
----
Generates
Rule.pmc
----
 # Generated file - do not edit!
 ##################((( 32-bit Checksum Validator )))##################
 BEGIN { use 5.006; local (*F, $/); ($F = __FILE__) =~ s!c$!!; open(F)
 or die "Cannot open $F: $!"; binmode(F, ':crlf'); unpack('%32N*',&lt;F>)
 == 0x1D6399E1 or die "Checksum failed for outdated .pmc file: ${F}c"}
 #####################################################################
 package Pugs::Grammar::Rule;
 use base 'Pugs::Grammar::Base';
 *{'Pugs::Grammar::Rule::ws'} = sub {
     my $grammar = shift;
     #warn "rule argument is undefined" unless defined $_[0];
     $_[0] = "" unless defined $_[0];
     my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
     return {
         bool  => $bool,
         match => $1,
         tail  => $2,
         #capture => $1,
     }
 };
 ...
----
Still needs work!
----
In Progress
----
Intrinsic Objects
Moose::Autobox
----
Builtin Objects
Pugs::Runtime::*
----
Calling Convention
Data::Bind
----
Even More Sugar
re::override
----
Translators
MAD.pm
----
Multiversioning
----
only.pm
----
CPAN Toolchain
JIB.pm
----
Commits welcome!
----
{{#q|Thank you!}}
{{#c|☺}}
</html:textarea>

































<deck flex="1" id="deck"><vbox flex="1" onmousemove="Presentation.onMouseMoveOnCanvas(event);"><toolbox id="canvasToolbar"><toolbar><toolbarbutton oncommand="Presentation.home()" label="|&lt;&lt;" observes="canBack"/><toolbarbutton oncommand="Presentation.back()" label="&lt;" observes="canBack"/><toolbarbutton oncommand="Presentation.forward()" label="&gt;" observes="canForward"/><toolbarbutton oncommand="Presentation.end()" label="&gt;&gt;|" observes="canForward"/><toolbarseparator/><hbox align="center"><textbox id="current_page" size="4" oninput="if (this.value) Presentation.showPage(parseInt(this.value)-1);"/><description value="/"/><description id="max_page"/></hbox><toolbarseparator/><vbox flex="2"><spacer flex="1"/><scrollbar id="scroller" align="center" orient="horizontal" oncommand="Presentation.showPage(parseInt(event.target.getAttribute('curpos')));" onclick="Presentation.showPage(parseInt(event.target.getAttribute('curpos')));" onmousedown="Presentation.onScrollerDragStart();" onmousemove="Presentation.onScrollerDragMove();" onmouseup="Presentation.onScrollerDragDrop();"/><spacer flex="1"/></vbox><toolbarseparator/><spacer flex="1"/><toolbarseparator/><toolbarbutton id="toggleEva" label="Eva" type="checkbox" autoCheck="false" oncommand="Presentation.toggleEvaMode();"/><toolbarseparator/><toolbarbutton label="Edit" oncommand="Presentation.toggleEditMode();"/><toolbarbutton oncommand="Presentation.reload();" label="Reload"/></toolbar></toolbox><vbox flex="1" id="canvas" onclick="Presentation.onPresentationClick(event);"><spacer flex="1"/><hbox flex="1"><spacer flex="1"/><vbox id="content"/><spacer flex="1"/></hbox><spacer flex="1"/></vbox></vbox><vbox flex="1" id="edit"><toolbox><toolbar><toolbarbutton label="New Page" oncommand="Presentation.addPage()"/><spacer flex="1"/><toolbarseparator/><toolbarbutton label="View" oncommand="Presentation.toggleEditMode();"/><toolbarbutton oncommand="Presentation.reload();" label="Reload"/></toolbar></toolbox><textbox id="textField" flex="1" multiline="true" oninput="Presentation.onEdit()"/><hbox collapsed="true"><iframe id="dataLoader" onload="if (window.Presentation) Presentation.onDataLoad();"/></hbox></vbox></deck><broadcasterset><broadcaster id="canBack"/><broadcaster id="canForward"/></broadcasterset><commandset><command id="cmd_forward" oncommand="if (Presentation.isPresentationMode) Presentation.forward();"/><command id="cmd_back" oncommand="if (Presentation.isPresentationMode) Presentation.back();"/><command id="cmd_home" oncommand="if (Presentation.isPresentationMode) Presentation.home();"/><command id="cmd_end" oncommand="if (Presentation.isPresentationMode) Presentation.end();"/></commandset><keyset><key keycode="VK_ENTER"      command="cmd_forward"/><key keycode="VK_RETURN"     command="cmd_forward"/><key key=" " command="cmd_forward"/><key keycode="VK_PAGE_DOWN"  command="cmd_forward"/><key keycode="VK_RIGHT"      command="cmd_forward"/><key keycode="VK_DOWN"       command="cmd_forward"/><!--key keycode="VK_BACK_SPACE" command="cmd_back"/--><key keycode="VK_UP"    command="cmd_back"/><key keycode="VK_PAGE_UP"    command="cmd_back"/><!--<key keycode="VK_BACK_UP"    command="cmd_back"/>--><!--<key keycode="VK_BACK_LEFT"  command="cmd_back"/>--><key keycode="VK_HOME"       command="cmd_home"/><!--<key keycode="VK_END"        command="cmd_end"/>--><key key="n" modifiers="accel" oncommand="Presentation.addPage();"/><key key="r" modifiers="accel" oncommand="window.location.reload();"/><key key="e" modifiers="accel" oncommand="Presentation.toggleEditMode();"/><key key="a" modifiers="accel" oncommand="Presentation.toggleEvaMode();"/></keyset><script src="takahashi.js" type="application/x-javascript" /></page>
<!-- ***** BEGIN LICENSE BLOCK *****
   - Version: MPL 1.1
   -
   - The contents of this file are subject to the Mozilla Public License Version
   - 1.1 (the "License"); you may not use this file except in compliance with
   - the License. You may obtain a copy of the License at
   - http://www.mozilla.org/MPL/
   -
   - Software distributed under the License is distributed on an "AS IS" basis,
   - WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
   - for the specific language governing rights and limitations under the
   - License.
   -
   - The Original Code is the Takahashi-Method-based Presentation Tool in XUL.
   -
   - The Initial Developer of the Original Code is SHIMODA Hiroshi.
   - Portions created by the Initial Developer are Copyright (C) 2005
   - the Initial Developer. All Rights Reserved.
   -
   - Contributor(s): SHIMODA Hiroshi <piro@p.club.ne.jp>
   -
   - ***** END LICENSE BLOCK ***** -->
