hidek

                       Rate  ClassAccessor ClassAccessorFast ClassAccessorFastXS
ClassAccessor       33557/s             --              -38%                -51%
ClassAccessorFast   53763/s            60%                --                -22%
ClassAccessorFastXS 68493/s           104%               27%                  --

hidek

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use LWP::Simple;
use File::Temp qw(tempdir);
use Archive::Tar;
use YAML;
use IPC::Run3;

hidek

= モジュールの依存関係 =

rpmbuild でパッケージを作る際に、use/require してるモジュールがすべて rpm の依存関係に含まれてしまう、という問題がある。eval しているモジュールは依存関係の対象とはならないが、以下のように複数行にまたがっていると、依存関係の対象になってしまう。

{{{
eval {
    require 'Hoge';
}
}}}

hidek

{
    package Parent;

    use strict;
    use warnings;

    sub new {
        my ($class, %args) = @_;
        bless {%args}, $class;
    }

hidek

use strict;
use warnings;
{
    package Parent;
    use fields qw(name);

    sub new {
        my ($class, %args) =@_;
        my $self = ref $class ? $class : fields::new($class);
        $self->{name} = $args{name};

hidek

{
    package Parent;

    use strict;
    use warnings;

    sub new {
        my ($class, %args) = @_;
        bless {%args}, $class;
    }

hidek

*** lib/Catalyst/Plugin/FormValidator/Simple/Auto.pm    2009-05-08 11:16:57.000000000 +0900
--- lib/Catalyst/Plugin/FormValidator/Simple/Auto.pm.new        2009-05-08 11:23:50.000000000 +0900
***************
*** 7,12 ****
--- 7,13 ----
  use UNIVERSAL::isa;
  use YAML;
  use FormValidator::Simple;
+ use MRO::Compat;

hidek

use strict;
use warnings;

use Web::Scraper;
use HTML::TreeBuilder::LibXML;
use URI;

use Chart::Clicker;
use Chart::Clicker::Data::DataSet;
use Chart::Clicker::Data::Series;

hidek

{

    package Schema::Base;

    use base qw/DBIx::Class/;

    __PACKAGE__->mk_classdata('_populate_data');

    sub populate_data {
        my $self = shift;

hidek

--- TableMap.cpp.orig   2009-06-03 12:32:39.000000000 +0900
+++ TableMap.cpp        2009-06-03 12:32:09.000000000 +0900
@@ -165,6 +165,7 @@
 bool TableMap::beginReloc(const string& newLowerBound)
 {
   bool ret = false;
+  Node::PreRelocLock* lock;

   // lock mutex
   _lockMutex();