Mojoliciousでつくる! Webアプリ入門

2013/09/21
YAPC::Asia 2013
Yusuke Wada a.k.a. yusukebe

Transcript

1. .PKPMJDJPVTͰͭ͘Δʂ 8FCΞϓϦೖ໳  :"1$"TJB
    :VTVLF
   8BEB
   BLB
   ZVTVLFCF Some papix photos are in this slides. Thanks to papix!
2. ΠϯτϩμΫγϣϯ
3. ࣗݾ঺հ w ࿨ా༟հ
   
   ੜ w ܚጯٛक़େ੍ֶ࡞ϝσΟΞݚڀՊमྃ w גࣜձࣾϫσΟοτ୅දऔక໾ w גࣜձࣾΦϞϩΩऔక໾݉࠷ߴٕज़੹೚ऀ w IUUQZVTVLFCFDPN
   PS
   !ZVTVLFCF
4. ϝΠϯϫʔΫ
5. ໰͍͔͚
6. 1FSM͸େن໛8FCαʔϏε Ͱ࢖ΘΕ͍ͯΔ͕ ॳ৺ऀ͕8FCΞϓϦʹೖ໳͢Δࢿྉ͕গͳ͍ʁ
7. ͋͑ͯڈ೥ΛৼΓฦΔ ʮ৽͍͠ʯΛੜΈग़ͨ͢Ίͷ8FCΞϓϦ։ൃͱͦͷपล
8. ԿΛͭ͘Δ͔͸෼͔ͬͨ ͦͷͨΊͷ ࣮૷ʹ͍ͭͯ ຊ೔ͷओ୊
9. ର৅ΦʔσΟΤϯε w 8FCΞϓϦέʔγϣϯΛͭ͘Γ͍ͨํ w ΞΠσΞ͸͋Δ͕࣮૷Ͱ͖ͳ͍
   ͬͯํ w ࠷ۙͷ8"'ʹ͍ͭͯ஌Γ͍ͨํ w 8FC
   "QQMJDBUJPO
   'SBNFXPSL
   
   8"' w .PKPMJDJPVTΛ࢖ͬͨ۩ମతͳΞϓϦߏ੒Λ ஌Γ͍ͨํ
10. ํ਑ ౰ͨΓલʹ࢖͍ͬͯΔ֓೦ɺ࣮૷ɺΩʔϫʔυ טΈࡅ͍ͯղઆ 
    (PPHMF΍$1"/ͰݕࡧͰ͖ΔΑ͏ʹʂ ࣮͸͘͢͝पล͔Β͸෼͔Γʹ͍͘ʁ
11. ΞδΣϯμ w ྫ୊ɿ઎͍ΞϓϦʹ͍ͭͯ w 8FCΞϓϦέʔγϣϯͱ'SBNFXPSL w .PKPMJDJPVTͷ঺հ w .PKPMJDJPVT-JUFΛ࢖͏ w ΑΓ࣮ફతͳΞϓϦ΁ w $1"/Ϟδϡʔϧͱͷ૊Έ߹Θͤͱ޻෉ w ࠓޙ΁
12. 
    ྫ୊ɿ઎͍ΞϓϦʹ͍ͭͯ
13. ໊લʹԠͯ͡઎͍݁ՌΛग़͢ w ઎͍݁Ռ͸·ͣछྨ w ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ w ग़ձ͍͕͋Δ͔΋ʁ w ෆ޾ʹͳΓ·͢ w ೖྗ͞Ε໊ͨલʹରͯ͠ඞͣಉ݁͡Ռ w ZVTVLFCF
    
    ʮग़ձ͍͕͋Δ͔΋ʁʯ
14. ϋογϡؔ਺ my $name = "yusukebe"; my $max = 3; my $number = 0; # จࣈྻΛҰจࣈͣͭ෼ղ for my $char (split //, $name) { # จࣈʹରԠ͢Δ਺஋ΛಘΔ $number += ord $char; } # ૝ఆ͞ΕΔ࠷େ஋Ͱׂͬͨ༨ΓΛಘΔ my $result = $number % $max; print "$result\n"; จࣈྻ ਺஋ ݻఆ஋ͰׂΔ ༨Γ͕݁Ռ
15. εΫϦϓτͰ࣮ݱ͢Δ Α͏͸਍அϝ˓ΧʔΈ͍ͨͳʁ
16. 
    8FCΞϓϦέʔγϣϯͱ'SBNFXPSL
17. 8FCΞϓϦέʔγϣϯΛఆٛ͢Δ 8FC͕୭͔ͱಛ௃తͳ ΠϯλϥΫγϣϯ Λ͢Δ৔߹ 8FCΞϓϦέʔγϣϯ
18. 8FCͷΠϯλϥΫγϣϯ 8FC ΞϓϦέʔγϣϯ Ϣʔβʔ ྫ͑͹ࣗ෼ͷ໊લΛ ೖྗ͢Δ ઎͍ͷ݁ՌΛݟΔ +4ͷಈ࡞ ֎෦ͷ8FC
    "1* ϛυϧ΢ΣΞ
    FUD ϒϥ΢β ϓϩάϥϜ εϚϗΞϓϦ
19. 8FC
    "QQMJDBUJPO
    'SBNFXPSL w ௨শ
    8"'ʢϫοϑʣ w ྫ͑͹
    3VCZ
    PO
    3BJMT w 8FCΞϓϦέʔγϣϯΛͭ͘ΔͨΊͷ౔୆ w .7$Ϟσϧʹجͮ͘৔߹͕ଟ͍ .7$ͬͯͳΜͧʔʁ
20. .PEFM 7JFX $POUSPMMFS .7$ .7$Ͱ͋Δҙຯ͸ʁ
21. .7$Ҏલ
22. Կ͕Πέͯͳ͍ͬͯʁ w ৭ʑࠞͬͯ͡Δ w ϔομʔग़ྗ w ϩδοΫॲཧ w )5.-ͷඳը w ϑΝΠϧ͝ͱʹϧʔςΟϯά͢Δ w ॏෳ͕ى͜Δ ˎ$(*͸σϓϩΠํ๏ͷ ҰͭͳͷͰ$(*ࣗମ͕ ྑ͘ͳ͍Θ͚Ͱ͸ͳ͍
23. ۪௚ʹDHJΛॻ͘ͱ use CGI qw/param header/; my $name = param('name'); my @list = qw/ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ ग़ձ͍͕͋Δ͔΋ʁ ෆ޾ʹͳΓ·͢/; my $num = 0; $num += ord ($_) for split //, $name; my $index = $num % scalar @list; my $message = $list[$index]; print header('text/html; charset=utf-8'); print "<html><body>"; print "<center><b>$message</b></center>"; print "</body></html>";
24. )5.-͚ͩͰ΋෼཭ͤ͞Δͱ use CGI qw/param header/; use Text::MicroTemplate qw/render_mt/; use Data::Section::Simple qw/get_data_section/; my $name = param('name'); my @list = qw/ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ ग़ձ͍͕͋Δ͔΋ʁ ෆ޾ʹͳΓ·͢/; my $num = 0; $num += ord ($_) for split //, $name; my $index = $num % scalar @list; my $message = $list[$index]; my $template = get_data_section('index.mt'); my $html = render_mt($template, $message)->as_string(); print header('text/html; charset=utf-8'); print $html; __DATA__ @@ index.mt <html> <body> <center><b><?= $_[0] ?></b></center> </body> </html>
25. ৑௕ʹͳΔ͕ ݟ௨͕͠Α͘ͳΔʂ ͞ΒʹςϯϓϨʔτΛϑΝΠϧʹ෼͚Δͱ ϝϯςφϯεੑɺ࠶ར༻ੑͷ޲্ ৑௕ੑ͸ϑϨʔϜϫʔΫ͕ٵऩͯ͘͠ΕΔʁ
26. ͱΓ͋͑ͣ.7$Ͱߟ͑Δҙຯ w ࠞࡏ͍ͯ͠Δݻ·ΓΛ໾ׂͰ෼͚Δ w ཧղΛ͢Ε͹৑௕ʹͳΔ͕։ൃޮ཰্͕͕Δ
27. ෼͚Δͱ͸෼͔Δ͜ͱ
28. ੾Γ෼͚ํ  3PVUFS  $POUSPMMFS  .PEFM
    
    -PHJD  %#૚
    
    03
    .BQQFS  7JFX
    
    4UBUJD
    pMFT ϏδωεϩδοΫΛѻ͏ ग़ྗ΍ݟͨ໨ʹؔ͢Δ෦෼ ݸผͷϦΫΤετʹجͮ͘ॲཧ σʔλϕʔεʹ·ͭΘΔ 63-.&5)0%ʹԠͯ͡ৼΓ෼͚Δ
29. ໾ׂΛ෼͚Δ͜ͱ
    
    ϑϨʔϜϫʔΫతࢥߟ΁
30. ॲཧͷྲྀΕ 3PVUFS $POUSPMMFS .PEFM
    
    -PHJD %#
    
    03
    .BQQFS 7JFX 
    ϦΫΤετ 
    σΟεύον 
    
    Ϟσϧݺͼग़͠ 
    %#ݺͼग़͠ 
    %#݁Ռฦ٫ 
    ݁Ռ 
    ϨϯμϦϯά 
    )5.-ͳͲ 
    Ϩεϙϯε
31. 1FSMͷ8"'ୡ w $BUBMZTU w %BODFS w "NPO w ,PTTZ w 1JDLMFT w 7PTPO w .PKPMJDJPVT w ࣗ࡞8"'
32. ࣗ࡞8"'ͱطଘ8"' w .7$ʁΛ࣮ݱ͢ΔϞδϡʔϧ͸ଗ͍ͬͯΔ w 1MBDL3FRVFTU w 3PVUFS4JNQMF w 5FYU9TMBUF w ͨͩΞϓϦΛॻ͖ͳ͕Β8"'΋͸Ωπ͍ w ษڧ༻ʹंྠͷ࠶ൃ໌͸ଟ͍ʹ׻ܴ w Ͱ΋ͱΓ͋͑ͣ8"'Λ࢖͍·͠ΐ͏Ͷ
    —
33. 
    .PKPMJDJPVTͷ঺հ
34. .PKPMJDJPVT
     w ଐʹݴ͏ʮܰྔ8"'ʯͷҰछ w ࠷৽7FS͸ʮʯ೥݄೔࣌఺ w ࡞ऀ͸ʮ4FCBTUJBO
    3JFEFMʯࢯ
35. ಛ௃
    7$͚ͩαϙʔτ w 3PVUJOH
    
    $POUSPMMFS w σϑΥϧτͰ͸.PKP5FNQMBUFΛ࢖͏7JFX w ͷΈαϙʔτ͠ʮ.PEFMʯ͸ର৅֎ .PKP#BTFͦͷଞͰΫϥεͭͬͨ͘Γ03
    .BQQFS ࢖ͬͨΓͯࣗ͠ྗͰ࣮૷ͯ͠Ͷ
    ̇
    ͍ͬͯ͏ ٯʹͦΕ͕͍͍ .PEFM-PHJD૚͸8FC͔Β੾Γ཭͢΂͖
36. ಛ௃
    /PU
    GVMMTUBDL
    CVU
    GVMMTUBDL 3VCZ
    PO
    3BJMT %#Λѻ͏·Ͱશͯ͜ΕҰͭͰग़དྷΔ ϑϧελοΫ .PKPMJDJPVT )551ͷ3FRVFTU΍6TFS"HFOU·Ͱ .PKPMJDJPVTͰ࢖͏ϥΠϒϥϦ͕શͯࣗ࡞ ϑϧελοΫ ίΞҎ֎ͷ$1"/Ϟδϡʔϧʹґଘ͠ͳ͍ʂ
38. 
    DQBON
    .PKPMJDJPVT
39. .PKPMJDJPVTͳΒҰൃ
40. ಛ௃
    ͦͷଞ w Ξοϓσʔτ͕සൟ $self->render_json( $ref ); # 4.00 Ͱഇࢭ # => $self->render( json => $ref ); ͨͩ͠ґଘ͕ແ͍ͷͰ.PKPMJDJPVT͚ͩ௥͍ͬͯΕ͹Α͍ w .PKPMJDJPVT-JUF
    Λ࢖͑͹ϑΝΠϧҰͭͰ w ޻෉͢Ε͹$(*Ͱ΋ಈ࡞Մೳ w 1FSM
    
    Ҏ্ඞਢɺ
    Ҏ্Λਪ঑ w ։ൃ༻αʔόNPSCPɺຊ൪༻IZQOPUPBE w ΋ͪΖΜ14(*ޓ׵
41. খ͞ͳΞϓϦ͔Βେ͖ͳ8FCΞϓϦ·Ͱ ঃʑʹֶ΂ΔϑϨʔϜϫʔΫ .PKPMJDJPVT-JUF .PKPMJDJPVT $1"/Ϟδϡʔϧͷ૊Έ߹Θͤ
42. 
    .PKPMJDJPVT-JUFΛ࢖͏
43. NPKPίϚϯυʹΑΔεέϧτϯ $ mojo generate lite_app myapp.pl .PKPMJDJPVT-JUF
44. ͸͡Ίͯͷ.PKPMJDJPVT-JUF #!/usr/bin/env perl use Mojolicious::Lite; get '/' => sub { my $self = shift; $self->stash->{message} = 'Hello Mojo!'; $self->render('index'); }; app->start; __DATA__ @@ index.html.ep <html> <body> <p><%= $message %></p> </body> </html> $POUSPMMFSʹ֘౰ 7JFXʢςϯϓϨʔτʣ 3PVUJOHͯ͠Δ
45. ্ཱͪ͛ํ $ morbo -l "http://*:5000" myapp.pl NPSCPΛ࢖͏ $ plackup -p 5000 myapp.pl QMBDLVQͰ্ཱͪ͛Δ
46. )FMMP
    8PSME
    ͔ΒֶͿ get '/' => sub {}; ϧʔςΟϯάͱίϯτϩʔϥ (&5
    IUUQMPDBMIPTU get '/entry/:id' => sub { my $entry_id = $self->stash->{id}; }; post '/entry' => sub {}; 1045
    IUUQMPDBMIPTUFOUSZ (&5
    IUUQMPDBMIPTUFOUSZ
47. )FMMP
    8PSME
    ͔ΒֶͿ get '/' => sub { my $self = shift; $self->stash->{message} = 'Hello Mojo'; ...; } ςϯϓϨʔτʹσʔλΛ౉͢ $self->render('index'); # index.html.ep Λඳը ...; <p><%= $message %></p> ςϯϓϨʔτͷهड़ͱϨϯμʔ
48. ΋ͪΖΜ઎͍ΞϓϦ΋ʂ
49. 4IPSU
    MJWF
    DPEJOH
    
50. #!/usr/bin/env perl use Mojolicious::Lite; use utf8; ...; get '/' => sub { my $self = shift; $self->render('index'); }; ...; @@ index.html.ep <p>໊લΛೖྗ͍ͯͩ͘͠͞</p> <form action="/result"> <input type="text" name="name" /> <input type="submit" value="઎͏" /> </form> τοϓϖʔδΛඳը
51. ...; get '/result' => sub { my $self = shift; my $name = $self->req->param('name'); my @list = qw/ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ ग़ձ͍͕͋Δ͔΋ʁ ෆ޾ʹͳΓ·͢/; my $num = 0; $num += ord ($_) for split //, $name; my $index = $num % scalar @list; $self->stash->{message} = $list[$index]; $self->stash->{name} = $name; $self->render('result'); }; ...; @@ result.html.ep <p><%= $name %>͞Μͷ݁Ռʮ<%= $message %>ʯ</p> ݁ՌΛग़ྗ
52. $POUSPMMFS಺Ͱͷૢ࡞ w શͯ͸ʮTFMGʯͷϝιουΛѻ͏ my $value = $self->req->param('key'); $self->render('entry'); $self->render( json => { key => $value } ); .PKPMJDJPVT$POUSPMMFS
    Λܧঝ͢ΔͷͰͦͷυΩϡϝϯτΛಡΊ͹0,ʂ $self->redirect_to('/');
53. .PKP5FNQMBUFपΓ w 1FSMJTI
    UFNQMBUFT
    
    1FSMॻ͚Δʂ % for my $entry (@$entries) { <h2><%= $entry->{title} %></h2> % } .PKP5FNQMBUF
    
    .PKPMJDJPVT1MVHJO%FGBVMU)FMQFS w ςϯϓϨʔτ޲͚IFMQFS @@ index.html.ep % layout 'default'; Hi, <%= $name %> @@ layouts/default.html.ep <html> <body><%= content %></body> </html>
54. .PKPMJDJPVT-JUFΞϓϦΛ֦ு͢Δ w QVCMJD
    
    
    ੩తϑΝΠϧΛஔ͘ w UFNQMBUFT
    
    ςϯϓϨʔτϑΝΠϧΛಠཱ ./ !"" myapp.pl !"" public/ # !"" css/ # !"" favicon.ico # !"" images/ # %"" js/ %"" templates/ !"" layouts/ # %"" default.html.ep %"" root/ %"" index.html.ep
55. 
    ΑΓ࣮ફతͳΞϓϦ΁
56. .PKPMJDJPVT-JUFͩͱϑΝΠϧ͕Ͱ͔͘ͳΔΑʔ ͦ͜Ͱ
    -JUF
    ͡Όͳ͍.PKPMJDJPVTΞϓϦʂ ϞδϡʔϧΛ͍͍ײ͡ʹ෼͚ͯͭ͘ΕΔ
57. .PKPMJDJPVTΞϓϦΛͭ͘Δίπ w 
    NPKP
    HFOFSBUF
    BQQ
    .Z"QQ
    Ͱ͸ແ͘ .Z"QQ8FC
    Έ͍ͨͳωʔϜεϖʔεͰ 
    NPKP
    HFOFBSBUF
    BQQ
    6SBOBJ8FC w ͳͥͳΒ6SBOBJ͕8FC૚͚ͩͰ͸ͳ͍͔΋ w 6SBOBJ.PEFM
    
    6SBOBJ-PHJD w 6SBOBJ$-*
58. ͍͍ͩͨ͜Μͳߏ੒ ./ !"" Uranai/ # !"" DB/ # # %"" Schema.pm # !"" DB.pm # !"" Model/ # # %"" OneModel.pm # !"" Web/ # # %"" Controller/ # # %"" Root.pm # %"" Web.pm %"" Uranai.pm %#ϨΠϠʔ
    
    
    5FOH
    FUD ϏδωεϩδοΫ
    
    1FSM
    .PEVMF 8FCϨΠϠʔ
     ओʹ$POUSPMMFSͱϧʔςΟϯά
    6SBOBJQN
    Ͱ͸
    ύεղܾͱઃఆϩʔυΛ࣮૷
59. -JUF͔ΒͷҠߦ #!/usr/bin/env perl use Mojolicious::Lite; get '/' => sub { my $self = shift; $self->stash->{message} = 'Hello Mojo!'; $self->render('index'); }; app->start; __DATA__ @@ index.html.ep <html> <body> <p><%= $message %></p> </body> </html> MJC6SBOBJ8FCQN MJC6SBOBJ8FC$POUSPMMFS .PKPMJDJPVT$POUSPMMFSΛܧঝ UFNQMBUFT .PKP5FNQMBUFʹ४ͣΔ
60. ͢ΜͳΓҠߦग़དྷΔʂ
61. ઎͍ΞϓϦΛ࣮૷ͯ͠ΈΔ
62. ࣮૷ํ਑ w ઎͍ͷϩδοΫ෦෼Λ.PEFMͱͯ͠੾Γग़͢ w 6SBOBJ.PEFM6SBOBJ w ͦΕΛ$POUSPMMFS͔Βదٓݺͼग़͢ w 7JFX͸.PKPMJDJPVT-JUFͱಉ͡΋ͷΛ ผϑΝΠϧʹ͢Δ
63. 6SBOBJ.PEFM6SBOBJ package Uranai::Model::Uranai; use Mouse; has 'list' => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [qw/ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ ग़ձ͍͕͋Δ͔΋ʁ ෆ޾ʹͳΓ·͢ /]} ); sub uranau { my ($self, $name) = @_; my $num = 0; $num += ord ($_) for split //, $name; my $index = $num % scalar @{$self->list()}; return $self->list->[$index]; } __PACKAGE__->meta->make_immutable();
64. .PEFM͸$-*͔Β΋࢖͑Δ use Uranai::Model::Uranai; use feature 'say'; my $uranai = Uranai::Model::Uranai->new; say $uranai->uranau('yusukebe'); ͬͯ͜ͱ͸୯ମͰςετग़དྷΔʂ
65. 6SBOBJ8FC$POUSPMMFS3PPU package Uranai::Web::Controller::Root; use Mojo::Base 'Mojolicious::Controller'; use Uranai::Model::Uranai; sub index { my $self = shift; $self->render('index'); } sub result { my $self = shift; my $name = $self->req->param('name'); return $self->redirect_to('/') unless $name; my $uranai = Uranai::Model::Uranai->new; my $message = $uranai->uranau($name); $self->stash->{message} = $message; $self->render('result'); } 1;
66. ΞϓϦΛͭ͘Δϑϩʔ w .PEFMΛॻ͘ w ςετ͢Δ w 3PVUJOH
    
    $POUSPMMFS
    Λॻ͘ w ςϯϓϨʔτΛॻ͘ w ςεταʔόΛىಈ͓ͯ͘͠ w ϒϥ΢βͰ֬ೝ w ܁Γฦ͠
67. 
    $1"/Ϟδϡʔϧͱͷ૊Έ߹Θͤͱ޻෉
68. .PKPMJDJPVT͚ͩͰ͸଍Γͳ͍ w $1"/ϞδϡʔϧΛ૊Έ߹Θͤͯͭ͘Δ w -JLF
    -&(0
    CMPDLT .PKPMJDJPVT 03
    .BQQFS 'PSN7BMJEBUPS 'JMM*O'PSN FUD
69. VTF
    'PSN7BMJEBUPS-JUF w ೖྗ஋ͷଥ౰ੑΛνΣοΫ͢Δ w ྫɿϝʔϧΞυϨεɺ༣ศ൪߸ɺจࣈ਺ FormValidator::Lite->load_constraints(qw/Japanese Email/); my $validator = FormValidator::Lite->new($self->req); my $res -> $validator->check( name => [qw/NOT_NULL/], mail => [qw/EMAIL/], { mails => [qw/mail mail_confirm/] } => ['DUPLICATION'] ); if($validator->has_error) { $self->stash->{messages} = $validator->get_error_messages(); return $self->render; } ...;
70. VTF
    5FOH w σʔλϕʔεΛૢ࡞͢Δ
    03
    .BQQFS w ͱͬͯ΋γϯϓϧ w $POUSPMMFS͔Β͸ૢ࡞ͤͣ.PEFM͔Β৮Δ my $teng = Teng::Schema::Loader->load( dbh => $dbh, namespace => 'Uranai::DB', ); my $row = $teng->insert(result => { text => '͋ͳͨ͸݁ࠗग़དྷ·ͤΜ', });
71. %#Λ༻͍ͨ઎͍ΞϓϦͷԠ༻ w ݻఆͩͬͨͭͷબ୒ࢶΛ૿΍ͤΔΑ͏ʹ͍ͨ͠
72. ͪͳΈʹ΍ͬͨ͜ͱ CREATE TABLE result ( id INT UNSIGNED AUTO_INCREMENT, text VARCHAR(200) NOT NULL, created_at DATETIME NOT NULL, PRIMARY KEY (`id`) ); 
    %#Λͭͬͯ͘ lib/Uranai/DB.pm lib/Uranai/DB/Schema.pm 
    5FOHͷ%#εΩʔϚͭͬͯ͘ lib/Uranai/Model/Uranai.pm 
    .PEFM͔Βૢ࡞͢ΔΑ͏ʹͯ͠ lib/Uranai/Controller/Root.pm 
    $POUSPMMFS͔Βݺͼग़͢ templates/root/index.html.ep 
    7JFXͷมߋ t/01_model.t 
    ؆୯ͳςετॻ͍ͯ Ͱ͖ͨʂ
73. ͦͷଞ࣮ફͰ࢖ͬͯΔϞδϡʔϧ w )5.-'JMM*O'PSN-JUF w %BUB7BMJEBUPS w .PVTF w 42-.BLFS w $BSUPO w %FWFM/:51SPG
    
    %FWFM,:51SPG w 5FTUNZTRME w )BSSJFU w $JOOBNPO w 4FSWFS4UBSUFS w 4UBSNBO
    
    4UBSMFU w FUD 5IBOLT
    UP
    HSFBU
    .PEVMF
    "VUIPST
    ʂ
74. 5JQT
75. %&-&5&165Λٖࣅతʹαϙʔτͤ͞Δ $self->hook( before_dispatch => sub { my $c = shift; if($c->req->method eq 'POST' && $c->req->param('_method')) { my $methods = [qw/GET POST PUT DELETE/]; if ( grep { $_ eq uc $c->req->param('_method') } @$methods ) { $c->req->method( $c->req->param('_method') ); } } } ); my $r = $self->routes; $r->delete('/entry/:id')-> to( controller => 'Entry', action => 'delete' );
76. IFMQFSͰ'JMM*O'PSNΛ͓खܰʹ # Uranai::Web $self->helper( render_fill => sub { my ($self, $name) = @_; my $html = $self->render(template => $name, partial => 1); return $self->render( text => HTML::FillInForm::Lite->fill(\$html, $self->req->params), format => 'html' ); } ); # Uranai::Web::Controller::* sub form { my $self = shift; ...; if ($validator->error) { $self->stash->{messages} = $validator->get_error_messages(); return $self->render_fill('form'); } }
77. 6SBOBJDPOpH  # Uranai sub config { my $mode = $ENV{PLACK_ENV} || 'development'; my $fname = File::Spec->catfile( Uranai->base_dir() , $mode . '.pl' ); my $config = undef; if( -f $fname ){ $config = do $fname or die "Cannnot load configuration file: $fname"; }else{ die "Cannot find configuration file: $fname"; } return $config; }
78. .PKPMJDJPVTͷηογϣϯʹ͍ͭͯ w σϑΥϧτ͸ΫϥΠΞϯτʹΫοΩʔͱͯ͠อ࣋ w ؾʹೖΒͳ͍৔߹͸ w 1MBDL.JEEMFXBSF4FTTJPO w ࣗ࡞ηογϣϯ؅ཧ
79. 
    ࠓޙ΁
80. ঺հͨ͜͠ͱ w 8"'ͱ.7$తͳߏ੒ʹ͍ͭͯ w ໾ׂΛద੾ʹ෼͚Δ͜ͱͰεοΩϦͱ w ରԠ͢Δ.PKPMJDJPVTΛ࢖࣮ͬͨ૷ w ઎͍ΞϓϦΛྫʹ͋͛ͨ
81. 8FCΞϓϦΛͭ͘Δʹ͸ʁ w ྫ͑͹ࠓճͷ઎͍ΞϓϦ w .PKPMJDJPVT-JUFͰ࣮૷ͯ͠ΈΔ w ग़དྷͨʂԶͬͯ͹εήʔମݧ
    ͦͷ w .PKPMJDJPVTΞϓϦͰ֦ுͯ͠ΈΔ w ग़དྷͨʂԶͬͯ͹εήʔମݧ
    ͦͷ w 5FOHΛֶश͠઎͍ͷύλʔϯΛ૿΍͢ w ग़དྷͨʂԶͬͯ͹εήʔମݧ
    ͦͷ
82. Զͬͯ͹εήʔମݧ গͣͭ͠ಈ͍ͯ
    ෼͔Δ
83. ѻΘͳ͔ͬͨओͳ఺ w ΑΓποίΜͩ.PKPMJDJPVTͷ࢖͍ํ w ςετ
    
    5FTU.PSF
    
    5FTU.PKP w ੜʹ͍ۙ%#42-ૢ࡞ w ͦͷଞϛυϧ΢ΣΞ
    
    NFNDBDIFE
    
    3FEJT w σϓϩΠ
    
    αʔόߏ੒
    
    ΞϓϦαʔό w ύϑΥʔϚϯεܭଌɺνϡʔχϯά w 1FSMҎ֎ͷ͜ͱ
    
    +BWB4DSJQU
    
    $44
    
    )5.-
84. ·ͱΊ
85. .PKPMJDJPVTͰ͸͡ΊΑ͏ w ബ͍8"'Ώ͑ཧղ͠΍͍͢ w .PKPMJDJPVT-JUF
    ͷΑ͏ʹগͣͭͭ͘͠ΕΔ w ଞͷ8"'ʹ΋Ԡ༻ग़དྷΔ ঃʑʹֶ΂ΔϑϨʔϜϫʔΫ
86. Ωʔϫʔυ͸ ෼͚Δ͜ͱͰ෼͔Δ গͣͭ͠΍Ζ͏
87. ऴΘΓ ࣭͝໰͸ݸผʹʂ