dann

#!/usr/bin/env perl
use strict;
use warnings;
use Devel::MemUsed;
use Term::ReadLine;

my $term = Term::ReadLine->new('Memory Shell');

while ( defined (my $line = $term->readline('perl> ')) ) { 
    last unless $line;

dann

equire "yaml"
require 'base64'
require 'benchmark'
require 'ebb'
require 'enumerator'
require 'erubis'
require 'etc'
require 'fileutils'
require 'irb'
require 'irb/completion'

dann

[user]
    name = Dann
    email = [email protected]

[alias]
    ci = commit -a
    co = checkout
    st = status -a
    praise = blame 
    up = pull --rebase

dann

App/Benchmark/WAF/Angelos/Controller/Root.pm
Params/ValidateXS.pm
unicore/lib/gc_sc/Digit.pl
unicore/lib/gc_sc/Word.pl
Term/ANSIColor.pm
Apache2/Connection.pm
YAML/Loader/Base.pm
Angelos/Engine/ModPerl.pm
APR/XSLoader.pm
Angelos/Controller.pm

dann

ulimit -c unlimited; /usr/bin/perl /home/dann/workdir/App-Benchmark-WAF/trunk/t/TEST.PL 

Generating config with the following custom settings
    MaxClients: 2
    MinClients: 1

/usr/sbin/apache2  -d /home/dann/workdir/App-Benchmark-WAF/trunk/t -f /home/dann/workdir/App-Benchmark-WAF/trunk/t/conf/httpd.conf -D APACHE2 -D PERL_USEITHREADS
using Apache/2.2.8 (prefork MPM)

waiting 60 seconds for server to start: ....

dann

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Web::Scraper;
use Path::Class;
use Digest::MD5 qw(md5_hex);
use URI;
use Perl6::Say;

dann

                               perl 00005160
                 Filter::Util::Call 00018544
                  String::CamelCase 00018832
                    List::MoreUtils 00022184
                  Text::SimpleTable 00083952
                        Hash::Merge 00096480
                   namespace::clean 00104232
                              Mouse 00621696
        Lingua::EN::Inflect::Number 00701016
            URI::Template::Restrict 01324792

dann

t/helloworld/modperl/00_cgi............# [cgi (modperl)]: 1601.79 [#/sec] (mean)
t/helloworld/modperl/00_cgi............ok
t/helloworld/modperl/01_angelos........# [angelos (modperl)]: 541.01 [#/sec] (mean)
t/helloworld/modperl/01_angelos........ok
t/helloworld/modperl/01_cgi-object.....# [cgi-object (modperl)]: 932.55 [#/sec] (mean)
t/helloworld/modperl/01_cgi-object.....ok
t/helloworld/modperl/01_http-engine....# [http-engine (modperl)]: 661.07 [#/sec] (mean)
t/helloworld/modperl/01_http-engine....ok
t/helloworld/modperl/02_cgi-app........# [cgi-app (modperl)]: 801.25 [#/sec] (mean)
t/helloworld/modperl/02_cgi-app........ok

dann

--- /usr/local/share/perl/5.8.8/Mouse/Meta/Class.pm.orig>.......2009-01-03
14:27:27.000000000 +0900
+++ /usr/local/share/perl/5.8.8/Mouse/Meta/Class.pm>....2009-01-03
14:29:00.000000000 +0900@@ -63,6 +63,7 @@
    my $pkg = $self->name;
     no strict 'refs';
+    no warnings 'redefine';
    $self->{'methods'}->{$name}++; # Moose stores meta object here.
    *{ $pkg . '::' . $name } = $code;
 }

dann

Modelは共通にして使う

- appのdefaultのflavor
MyApp::Web::View
MyApp::Web::Controller
MyApp::Model
MyApp::CLI
MyApp::CLI::Command

- app-max flavor