tsucchi

DBD::mysql からテストコードを持ってきたらこんな感じの惨状

• AutoCommit => 0 が動かない(たくさん)
• mysql_auto_reconnect が動かない(15reconnect.t)
• get_info (これが直ると 29warnings.t 等がこけるようになると思うので、その修正も)
• $sth->{mysql_insert_id} が動かない(31insertid.t)
• bind_param がある条件で動かないっぽい。(そもそも動いてない？ 40bindparam.t 40bindparam2.t, 40nulls_prepare.t, 41bind_param.t, 42bind_param.t, 51bind_type_guessing.t, 86_bug_36972.t, 65types.t)
• foreign_key_info がちゃんと動いていないっぽい(40catalog.t)
• table_info がちゃんと動いていないっぽい(40catalog.t)
• column_info がちゃんと動いていないっぽい(40catalog.t, 40listfields.t)
• primary_key_info がちゃんと動いていないっぽい(40keyinfo.t)

tsucchi

• fatpack して1枚 index を生成する
• ホームディレクトリかどこかに、デフォルトの css/js を置けるようにする
• リファクタリング?

あと思いついたら随時追記

tsucchi

#!/usr/bin/perl
# 複数リポジトリをまとめて pull する君
use strict;
use warnings;
use List::MoreUtils qw(first_value);
use Cwd;
use File::Spec;

opendir my $dir, '.' or die "can't open dir : $!";
my @modules = grep { $_ !~ qr/^\.(:?\.)?/ } readdir $dir;

tsucchi

package EasyStub;
use base qw(Exporter);
our @EXPORT_OK = qw(stub);
use strict;
use warnings;
my $id = 0;

sub stub_anon_object {
    my (%methods) = @_;
    my $class = "EasyStub::Anon_" . $id++;

tsucchi

use strict;
use warnings;
use SQL::Abstract;
use SQL::Maker;
use feature qw(say);

my $ab = SQL::Abstract->new();
my ($ab_sql, @ab_binds) = $ab->select('hoge', ['*'], { id => [] });

my $mk = SQL::Maker->new(driver=>'mysql');

tsucchi

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

while ( my $in = <stdin> ) {
    print "$in";
}

tsucchi

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

my $x = {
    xxx => { die "sibou" },
};

tsucchi

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
#use DBIx::QueryLog;

my @dsn  = (...);
my $dbh = DBI->connect(@dsn, { RaiseError => 1, PrintError => 0, pg_enable_utf8 => 1 });
my $sql = "SELECT sequence_name FROM information_schema.sequences WHERE sequence_schema = 'public'";

tsucchi

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

my $aa = {
    aa => hoge(),
    bb => 'xxx',
};

sub hoge {

tsucchi

script_line1  = use strict
script_line2  = use warnings
script_line3  = use 5.018002
script_line4  = use Otogiri;
script_line5  = use Otogiri::Plugin;
script_line6  = my $connect_info = ["dbi:...",'username','password', { AutoCommit => 1, RaiseError => 1,PrintError => 0, pg_enable_utf8 => 1,}];
script_line7  = Otogiri->load_plugin('DeleteCascade');
script_line8  = my $db = Otogiri->new( connect_info => $connect_info );

[Interrupt]