hatyuki

diff --git a/t/204_load_schema_uc_pk.t b/t/204_load_schema_uc_pk.t
index 39989bc..1afad37 100644
--- a/t/204_load_schema_uc_pk.t
+++ b/t/204_load_schema_uc_pk.t
@@ -32,7 +32,7 @@ SKIP: {

     my ( $dsn, $username, $password ) =
       @ENV{ map { "SKINNY_MYSQL_${_}" } qw/DSN USER PASS/ };
-    skip 'Set $ENV{SKINNY_MYSQL_DSN}, _USER and _PASS to run this test', 2
+    skip 'Set $ENV{SKINNY_MYSQL_DSN}, _USER and _PASS to run this test', 4

hatyuki

[hatyuki@coLinux::~/.cpanm/work/1297212226.11575/DBIx-Skinny-Schema-Loader-0.21] $ make test
PERL_DL_NONLAZY=1 /home/yuki/local/perlbrew/perls/perl-5.12.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t
t/000_compile.t ............................... ok
t/001_connect.t ............................... ok
t/002_get_skinny_connect_info.t ............... ok
t/003_connect_again.t ......................... ok
t/100_dbi_sqlite.t ............................ ok
t/101_dbi_mysql.t ............................. skipped: Set $ENV{SKINNY_MYSQL_DSN}, _USER and _PASS to run this test
t/102_dbi_pg.t ................................ skipped: Set $ENV{SKINNY_PG_DSN}, _USER and _PASS to run this test
t/103_dbi_pg_with_schema.t .................... skipped: Set $ENV{SKINNY_PG_DSN}, _USER and _PASS to run this test

hatyuki

diff --git a/lib/DBIx/Inspector/Iterator.pm b/lib/DBIx/Inspector/Iterator.pm
index db4bbea..923e3d8 100644
--- a/lib/DBIx/Inspector/Iterator.pm
+++ b/lib/DBIx/Inspector/Iterator.pm
@@ -14,6 +14,8 @@ sub new {
 sub next {
     my $self = shift;

+    return unless $self->sth;
+

hatyuki

diff --git a/lib/Teng/Schema/Dumper.pm b/lib/Teng/Schema/Dumper.pm
index 47e4f98..362ce07 100644
--- a/lib/Teng/Schema/Dumper.pm
+++ b/lib/Teng/Schema/Dumper.pm
@@ -15,7 +15,7 @@ sub dump {

     my $ret = "package ${namespace}::Schema;\n";
     $ret .= "use Teng::Schema::Declare;\n";
-    for my $table_info (sort { $_->name } $inspector->tables) {
+    for my $table_info (map { $_->name } $inspector->tables) {

hatyuki

" GUI Option
set guioptions=mTrb

" ブラウザタイトルを変更
set titlestring=Firefox

" フォーカスを奪われるのを防ぐ
set focuscontent

" 検索語を強調表示

hatyuki

import clr

from System import *
from System.Diagnostics import Process
from System.Runtime.InteropServices import Marshal
from System.Windows.Forms import *
from Misuzilla.Applications.AppleWirelessKeyboardHelper import Program, Util


# Master Volume Control

hatyuki

package Ark::View::Xslate;
use Ark 'View';
use Text::Xslate ( );

has options => (
    is      => 'rw',
    isa     => 'HashRef',
    lazy    => 1,
    default => sub { +{ } },
);

hatyuki

diff --git a/lib/DBIx/Skinny/SQL.pm b/lib/DBIx/Skinny/SQL.pm
index e10b2ce..62cf9d3 100644
--- a/lib/DBIx/Skinny/SQL.pm
+++ b/lib/DBIx/Skinny/SQL.pm
@@ -80,9 +80,14 @@ sub as_sql {
             $table = $self->_add_index_hint($table); ## index hint handling
             $sql .= $table unless $initial_table_written++;
             for my $join (@{ $j->{joins} }) {
-                $sql .= ' ' .
-                        uc($join->{type}) . ' JOIN ' . $join->{table} . ' ON ' .

hatyuki

#!/usr/bin/env perl
use strict;
use warnings;

# mysql -h localhost test
# create table hoge (id int(10) auto_increment, hoge char(16), fuga char(16), t int(10), primary key (id));
# insert into hoge (hoge, fuga, t) values ('aaa', 'xxx', UNIX_TIMESTAMP()), ('bbb', 'yyy', UNIX_TIMESTAMP()), ('ccc', 'zzz', UNIX_TIMESTAMP());

package My::DB;
use DBIx::Skinny setup => +{

hatyuki

subtest 'delete rows using IN operator' => sub {
    Mock::Basic->insert('mock_basic',{
        id   => 1,
        name => 'perl',
    });
    Mock::Basic->insert('mock_basic',{
        id   => 2,
        name => 'perl',
    });