masaki

# default: off
# description: The git daemon allows git repositories to be exported using the git:// protocol.

service git
{
    disable         = no
    type            = UNLISTED
    port            = 9418
    socket_type     = stream
    wait            = no

masaki

# install
cd /tmp
wget http://download.fedora.redhat.com/pub/epel/5/SRPMS/gitosis-0.2-6.20080825git.el5.src.rpm
rpm2cpio gitosis-0.2-6.20080825git.el5.src.rpm | cpio -i gitosis-0.2.tar.gz
tar zxvf gitosis-0.2.tar.gz
cd gitosis-0.2
./setup.py build
sudo ./steup.py install

# post-install

masaki

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(:hireswallclock timethese);
use Test::MockObject;
use FindBin::libs;
use HTTP::Router::Declare;

my $router = router {

masaki

#!/usr/bin/perl

use strict;
use warnings;
use Hash::Inflator;
use Hash::AsObject;
use Data::OpenStruct::Deep;
use Test::MockObject;
use Benchmark qw(:hireswallclock cmpthese);

masaki

# Merb-like

  use HTTP::Router::Declare;

  my $router = router {
      # path and params
      match '/' => to { controller => 'Root', action => 'index' };

      # path, conditions, and params
      match '/home',        { method => 'GET' }     => to { controller => 'Home', action => 'show' };

masaki

# release-0.01 (CPAN)
Benchmark: timing 10000 iterations of match, match_block, to_block, with...
      match: 14.2198 wallclock secs (13.88 usr +  0.05 sys = 13.93 CPU) @ 717.88/s (n=10000)
match_block: 14.6266 wallclock secs (14.44 usr +  0.04 sys = 14.48 CPU) @ 690.61/s (n=10000)
   to_block: 15.8561 wallclock secs (15.69 usr +  0.05 sys = 15.74 CPU) @ 635.32/s (n=10000)
       with: 15.2271 wallclock secs (14.78 usr +  0.07 sys = 14.85 CPU) @ 673.40/s (n=10000)

# 32664d58be4ebfea9c445aa91bac1709e62ce5fa (Class::Accessor::Fast)
Benchmark: timing 10000 iterations of match, match_block, to_block, with...
      match: 8.87748 wallclock secs ( 8.79 usr +  0.02 sys =  8.81 CPU) @ 1135.07/s (n=10000)

masaki

package MouseX::Log::Log4perl;

use Mouse::Role;
use Log::Log4perl;

our $VERSION = '0.01';

has 'logger' => (
    is      => 'rw',
    isa     => 'Log::Log4perl',

masaki

diff --git a/lib/ShipIt/VC/Git.pm b/lib/ShipIt/VC/Git.pm
index 9bf21d7..b5b6c2c 100644
--- a/lib/ShipIt/VC/Git.pm
+++ b/lib/ShipIt/VC/Git.pm
@@ -61,6 +61,18 @@ sub commit {
     print $tmp_fh $msg;
     my $tmp_fn = "$tmp_fh";
     system($command, "commit", "-a", "-F", $tmp_fn);
+
+    if (my $where = $self->{push_to}) {

masaki

diff --git a/lib/Mouse/Meta/Role.pm b/lib/Mouse/Meta/Role.pm
index 95bdca8..fd2fc11 100644
--- a/lib/Mouse/Meta/Role.pm
+++ b/lib/Mouse/Meta/Role.pm
@@ -107,7 +107,20 @@ sub apply {
         for my $name ($self->get_attribute_list) {
             next if $class->has_attribute($name);
             my $spec = $self->get_attribute($name);
-            Mouse::Meta::Attribute->create($class, $name, %$spec);
+

masaki

#!/usr/bin/perl

use Data::OpenStruct::Deep;

my %hash = (
    foo => 1,
    bar => {
        baz => 2,
    },
);