typester

#!ruby -Ku

class << (_ = × = 来週も見てくださいね！ = 'ひだまりスケッチ×365 ')
  def / x=/_/x
    sub! /(.*)/, ''; print $1
    self
  end
  def < x=/_/x
    print open(caller.first.split(':').first).read.split(/\s/)[-2..-1].join(' ')
  end

typester

package Module::Setup::Flavor::iPhoneApp;
use strict;
use warnings;
use base 'Module::Setup::Flavor';
1;

=head1

Module::Setup::Flavor::iPhoneApp - pack from iphone

typester

#!/bin/sh

export iphonefs=$HOME/tmp/iphone/iPhone2.1
export target=arm-apple-darwin9

export leopardsdk=$HOME/tmp/iphone/Developer/SDKs/MacOSX10.5.sdk
export leopardinc=${leopardsdk}/usr/include
export leopardlib=${leopardsdk}/System/Library/Frameworks

export iphoneplt=$HOME/tmp/iphone/Developer/Platforms/iPhoneOS.platform

typester

## MySQL DB Schema
CREATE TABLE user (
       id INTEGER UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
       username VARCHAR(255) NOT NULL
);

CREATE TABLE bookmark (
       id INTEGER UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY,
       user INTEGER UNSIGNED NOT NULL, -- user.id
       url VARCHAR(255) NOT NULL

typester

use FindBin::libs;
use Benchmark qw/cmpthese/;

use Array::Diff 0.05;
use Algorithm::Diff;
use Algorithm::Diff::XS;

my $d  = Array::Diff->new({ diff_class => 'Algorithm::Diff' });
my $xs = Array::Diff->new({ diff_class => 'Algorithm::Diff::XS' });

typester

export iphonefs=/Users/typester/app/toolchain/iPhone-2.0
export target=arm-apple-darwin9

export leopardsdk=/Developer/SDKs/MacOSX10.5.sdk
export leopardinc=${leopardsdk}/usr/include
export leopardlib=${leopardsdk}/System/Library/Frameworks

export iphoneplt=/Developer/Platforms/iPhoneOS.platform
export iphonesdk=${iphoneplt}/Developer/SDKs/iPhoneOS2.0.sdk
export iphoneinc=${iphonesdk}/usr/include

typester

#!/usr/bin/env perl                                                                                                                

use strict;
use warnings;
use FindBin::libs;

use Kamaitachi;

{   
    package Service::Echo;

typester

package Service::Chat;
use Moose;

extends 'Kamaitachi::Service';

with qw/Kamaitachi::Service::AutoConnect                                                                                          
        Kamaitachi::Service::Broadcaster                                                                                          
       /;

sub on_invoke_send {

typester

use strict;
use warnings;

use HTTP::Request::Common;
use LWP::UserAgent;
use YAML;
use JSON::Syck;

my $ua = LWP::UserAgent->new;

typester

--- flex_sdk_3.2.0.3958_mpl	2008-12-05 15:56:19.000000000 +0900
+++ flex_sdk_3.2.0.3958	2008-12-05 15:56:25.000000000 +0900
@@ -3,6 +3,10 @@
 aasdoc.bat
 acompc
 acompc.bat
+adl
+adl.exe
+adt
+adt.bat