Skip to content

Instantly share code, notes, and snippets.

View lestrrat's full-sized avatar

lestrrat lestrrat

899 followers · 75 following
View GitHub Profile
@lestrrat
lestrrat / gist:65577
Created February 17, 2009 04:28
diff --git a/lib/MojoMojo/Schema/Result/Page.pm b/lib/MojoMojo/Schema/Result/Page.pm
index 102844e..2bc94db 100644
--- a/lib/MojoMojo/Schema/Result/Page.pm
+++ b/lib/MojoMojo/Schema/Result/Page.pm
@@ -6,7 +6,7 @@ use Carp qw/croak/;
use base qw/MojoMojo::Schema::Base::Result/;
-__PACKAGE__->load_components( "PK::Auto", "Core" );
+__PACKAGE__->load_components( "PK::Auto", "UTF8Columns", "Core");
@lestrrat
lestrrat / gist:65617
Created February 17, 2009 07:13
diff --git a/lib/MojoMojo/Schema/Result/Page.pm b/lib/MojoMojo/Schema/Result/Page.pm
index 102844e..2bc94db 100644
--- a/lib/MojoMojo/Schema/Result/Page.pm
+++ b/lib/MojoMojo/Schema/Result/Page.pm
@@ -6,7 +6,7 @@ use Carp qw/croak/;
use base qw/MojoMojo::Schema::Base::Result/;
-__PACKAGE__->load_components( "PK::Auto", "Core" );
+__PACKAGE__->load_components( "PK::Auto", "UTF8Columns", "Core");
@lestrrat
lestrrat / gist:73648
Created March 4, 2009 01:04
daisuke@beefcake-7 Data-Localize-any-moose$ make test
cp lib/Data/Localize/Localizer.pm blib/lib/Data/Localize/Localizer.pm
cp lib/Data/Localize.pm.orig blib/lib/Data/Localize.pm.orig
cp lib/Data/Localize/Gettext.pm blib/lib/Data/Localize/Gettext.pm
cp lib/Data/Localize/Namespace.pm.orig blib/lib/Data/Localize/Namespace.pm.orig
cp lib/Data/Localize/Namespace.pm blib/lib/Data/Localize/Namespace.pm
cp lib/Data/Localize.pm blib/lib/Data/Localize.pm
cp lib/Data/Localize/Auto.pm.orig blib/lib/Data/Localize/Auto.pm.orig
cp lib/Data/Localize/Auto.pm blib/lib/Data/Localize/Auto.pm
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t
@lestrrat
lestrrat / gist:74622
Created March 5, 2009 22:57
use Bread::Board;
my $c = Bread::Board->new();
# Parameters are bound to the main bread board container
$c->param('configfile' => '/path/to/file.conf');
# You can create a service that depends on this param
$c->inject(config =>
Bread::Board::Service::Deferred->new(
@lestrrat
lestrrat / gist:75781
Created March 8, 2009 13:02
=== lib/Mouse/Util/TypeConstraints.pm
==================================================================
--- lib/Mouse/Util/TypeConstraints.pm (revision 101886)
+++ lib/Mouse/Util/TypeConstraints.pm (local)
@@ -106,6 +106,7 @@
} else {
$TYPE{$name} = $constraint;
}
+ return $name;
}
@lestrrat
lestrrat / gist:77226
Created March 11, 2009 00:36
use strict;
use lib "lib";
use Benchmark qw(cmpthese);
use Path::Router;
use Moose::Util::TypeConstraints;
my $router1 = Path::Router->new();
my $router2 = Path::Router->new(inline => 0);
foreach my $router (($router1, $router2)) {
$router->add_route("/blog");
@lestrrat
lestrrat / gist:84459
Created March 25, 2009 00:31
=head1 NAME
DBIx::Class::Storage::Subprocess - Delegate Actual Query To Subprocesses
=head1 SYNOPSIS
my $schema = MyApp::Schema->connection(...);
$schema->storage_type('::Subprocess');
# XXX what should \&callback get?
@lestrrat
lestrrat / gist:103024
Created April 28, 2009 08:24
#!/usr/local/bin/perl
my $codec = [
[ qw(あ い う え お) ],
[ qw(か き く け こ) ],
[ qw(さ し す せ そ) ],
[ qw(た ち つ て と) ],
[ qw(な に ぬ ね の) ],
[ qw(は ひ ふ へ ほ) ],
[ qw(ま み む め も) ],
[ 'や', undef, 'ゆ', undef, 'よ' ],
@lestrrat
lestrrat / gist:103033
Created April 28, 2009 08:56
#!/usr/local/bin/perl
use utf8;
use Encode qw(decode_utf8);
use Data::Dumper;
my $codec = [
[ qw(あ い う え お) ],
[ qw(か き く け こ) ],
[ qw(さ し す せ そ) ],
[ qw(た ち つ て と) ],
[ qw(な に ぬ ね の) ],
@lestrrat
lestrrat / gist:113049
Created May 17, 2009 16:38
package Role1;
use Moose::Role;
has attr => ( is => 'ro' );
package Role2;
use Moose::Role;
with 'Role1';