ktat

diff --git a/lib/Router/Simple/Route.pm b/lib/Router/Simple/Route.pm
index 6c5ba4a..09103cc 100644
--- a/lib/Router/Simple/Route.pm
+++ b/lib/Router/Simple/Route.pm
@@ -41,6 +41,7 @@ sub new {
             $row->{_regexp_capture} = 1;
             $pattern;
         } else {
+            my $n = -1;
             $pattern =~ s!

ktat

diff --git a/t/01_simple.t b/t/01_simple.t
index 1c6e110..2fd5dd7 100644
--- a/t/01_simple.t
+++ b/t/01_simple.t
@@ -7,6 +7,7 @@ my $r = Router::Simple->new();
 $r->connect('home', '/' => {controller => 'Root', action => 'show'}, {method => 'GET', host => 'localhost'});
 $r->connect('blog_monthly', '/blog/{year}/{month}', {controller => 'Blog', action => 'monthly'}, {method => 'GET'});
 $r->connect('/blog/{year:\d{1,4}}/{month:\d{2}}/{day:\d\d}', {controller => 'Blog', action => 'daily'}, {method => 'GET'});
+$r->connect('/regexp/{year:(\d{1,4})}/{month:(\d{2})}/{day:(\d\d)}', {controller => 'Blog', action => 'daily'}, {method => 'GET'});
 $r->connect('/comment', {controller => 'Comment', 'action' => 'create'}, {method => 'POST'});

ktat

#!/usr/bin/perl

use strict;
use warnings;
use Text::Xslate;
use utf8;
use Encode;

my %vpath;
$vpath{"test.tt"} = <<_TMPL_;

ktat

#!/usr/bin/perl

# Using Transport::SMTP, body is grabled with some case.
# With same code,
#   Transport::Sendmail is ok(not garbled)
#   Transport::SMTP is ng(garbled)

use strict;
use Carp;
use warnings;

ktat

diff --git a/lib/Teng.pm b/lib/Teng.pm
index de2f878..a2b3207 100644
--- a/lib/Teng.pm
+++ b/lib/Teng.pm
@@ -33,14 +33,10 @@ sub load_plugin {
 
     $class = ref($class) if ref($class);
 
-    my $alias = delete $opt->{alias};
+    my $alias = delete $opt->{alias} || {};

ktat

diff --git a/lib/DBIx/QueryLog.pm b/lib/DBIx/QueryLog.pm
index 747cdd5..cf5e379 100644
--- a/lib/DBIx/QueryLog.pm
+++ b/lib/DBIx/QueryLog.pm
@@ -8,6 +8,7 @@ use DBI;
 use Time::HiRes qw(gettimeofday tv_interval);
 use Term::ANSIColor qw(colored);
 use Data::Dumper ();
+use Module::Find ();
 

ktat

package Hoge::PSGIErrors;

use strict;
use IO::Handle;

sub new {
    my $class = shift;
    my $env = shift;
    my %self;
    $self{io} = IO::Handle->new;

ktat

#!/usr/bin/perl

use strict;
use warnings;
use SQL::Maker;
use SQL::Abstract;
use SQL::Abstract::More;
use Benchmark qw/cmpthese/;

my $sql_abstract_more = new SQL::Abstract::More();

ktat

package Teng::Plugin::SearchBySQLAbstractMore;
use strict;
use warnings;
use utf8;
use Carp ();
use Teng::Iterator;
use Data::Page;
use SQL::Abstract::More;

our @EXPORT = qw/search_by_sql_abstract_more search_by_sql_abstract_more_with_pager/;

ktat

package Teng::Plugin::Pager::MySQLFoundRows::WithSQL;
use strict;
use warnings;
use utf8;
use Carp ();
use Teng::Iterator;
use Data::Page;

our @EXPORT = qw/search_by_sql_with_pager/;