レガシーPerlと「今」を組み合わせ、開発を継続し続ける方法

 レガシーPerlと「今」を組み合わせ、開発を継続し続ける方法

YAPC::Fukuoka 2017 HAKATAでロリポップのコアAPIについて話しました。

1b838da2065660793d5b26f2cdc32de7?s=128

Kazuhiko Yamashita

July 01, 2017
Tweet

Transcript

  1. 4.
  2. 6.

    ϩϦϙοϓͷ؆қγεςϜߏ੒ਤ 1FSM ϩϦϙοϓͷίΞ"1*͸1FSM  .Z42-4FSWFS 'SPOU"1* 3BJMT ;FOE ਃ͠ࠐΈαΠτ ίΞ"1*

    ϑϩϯτ"1* ϗεςΟϯάαʔό܈ .BJM4FSWFS 8FC4FSWFS ܖ໿৘ใ΍αʔό৘ใΛ ίϯτϩʔϧ αʔόϓϩϏδϣχϯάͷ ࣮ߦࢦࣔ
  3. 7.
  4. 8.

    

  5. 19.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ 5FTU.PDL(VBSEΛར༻͠ɺ ֎෦ίϯϙʔωϯτ͸શͯ.PDLԽ my $mock = mock_guard(‘Hosting::Server::API::Ext', +{ run =>

    sub { my($self, $params) = @_; switch ($params->{'parameters'}) { case /—domain=example.com/ { return { key => $dummy_key, }; } } }, });
  6. 20.

    ϝϯςφϯε͞Ε͍ͯͳ͍Ϣχοτςετ 5FTUNZTRMEΛར༻͠ɺ ςετσʔλͷিಥΛճආ͢Δ sub new { my %self; my $class

    = shift; $self->{mysqld} = Test::mysqld->new(my_cnf => {'port' => '3306'}, copy_data_from => 't/data/mysql'); $self->{dbh} = DBI->connect($self->{mysqld}->dsn, '', '') or die 'cannot connect to db'; return bless $self, $class; } UEBUBNZTRM .Z42- UFTUDBTF" UFTUDBTF# .Z42- ϕʔεσʔλΛݩʹ ৽نΠϯελϯεىಈ ςετέʔε͝ͱʹ࢖༻͢Δ %#͕ҟͳΔͨΊ ΫϦʔχϯά͕ෆཁ
  7. 26.