bokutin

#!/usr/bin/env perl

use Modern::Perl;

use Benchmark qw(:all);
use Data::Dumper;
use HTML::String;
use Test::Deep::NoTest;
use Text::Xslate qw(mark_raw html_escape);

bokutin

use Modern::Perl;
use App::Sqitch;
use Graph::Easy;

sub run {
    my $sqitch  = App::Sqitch->new;
    my $plan    = $sqitch->plan;
    my @changes = $plan->changes;

    my $graph = Graph::Easy->new;

bokutin

#!/usr/bin/env perl

use sanity 'sane';

my $ok = {
    var1 => 'foo',
    var2 => 'bar',
    var3 => 'baz',
    items => [
        { subvar1 => 'foo' , subvar2 => 'bar' , } , 

bokutin

package Simple::HFH {
  use HTML::FormHandler::Moose;
  extends 'HTML::FormHandler';
  has_field name => ( type => 'Text', required => 1 );
  __PACKAGE__->meta->make_immutable;
}

package main {
  use Mojo::Base -strict;

bokutin

---
./config.pl: |
    use Data::Dumper;
    +{
        name => "MojoApp",
    };
mojo_app/lib/MojoApp.pm: |
    package MojoApp;
    use Mojo::Base 'Mojolicious';
    

bokutin

もうちょっとAlien::wxWidgetsのビルドを速くしたい・・・

VMWareFusion 4, Windows XP SP3, Macbook Air 2012mid

Wxで計測

look Wx
perl Makefile.PL
timeit dmake -P# Event.o Wx.o GDI.o Constant.o Window.o Frames.o Controls.o
dmake clean

bokutin

#!/usr/bin/env perl

use lib "/Users/bokutin/git/Foo/lib";

use Modern::Perl;
use IO::All;
use Mason;

my $seq = 0;

bokutin

#!/usr/bin/env perl

use strict;
use feature ":5.10";
use CAM::PDF;
use Encode;
use Encode::UTF8Mac;
use IO::All;

$|=1;

bokutin

use utf8;
use File::Spec;
use Win32::Unicode;

# フルパス = フォルダ名 + ファイル名
my $path = File::Spec->catfile("c:/Documents and Settings", "萌え♥.txt");
sayW $path; # C:\Documents and Settings\萌え♥.txt
 
# ファイルを作成してみる
my $file = Win32::Unicode::File->new(">", $path);

bokutin

package Janken::Wx::App {
    use strict;
    use Wx;
    use base "Wx::App";

    sub OnInit {
        my $self = shift;

        my $frame = Janken::Wx::Frame->new;
        $frame->Fit;