lestrrat

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

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

  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

=== 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

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

=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

#!/usr/local/bin/perl
my $codec = [
    [ qw(あ い う え お) ],
    [ qw(か き く け こ) ],
    [ qw(さ し す せ そ) ],
    [ qw(た ち つ て と) ],
    [ qw(な に ぬ ね の) ],
    [ qw(は ひ ふ へ ほ) ],
    [ qw(ま み む め も) ],
    [ 'や', undef, 'ゆ', undef, 'よ' ],

lestrrat

#!/usr/local/bin/perl
use utf8;
use Encode qw(decode_utf8);
use Data::Dumper;
my $codec = [
    [ qw(あ い う え お) ],
    [ qw(か き く け こ) ],
    [ qw(さ し す せ そ) ],
    [ qw(た ち つ て と) ],
    [ qw(な に ぬ ね の) ],

lestrrat

package Role1;
use Moose::Role;

has attr => ( is => 'ro' );

package Role2;
use Moose::Role;

with 'Role1';

lestrrat

package Role1;
use Moose::Role;

has 'foo';

package Role2;
use Moose::Role;

has foo => (isa => 'Int');