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

Slide 1

Slide 1 text

.PKPMJDJPVTͰͭ͘Δʂ 8FCΞϓϦೖ໳ :"1$"TJB :VTVLF8BEBBLBZVTVLFCF Some papix photos are in this slides. Thanks to papix!

Slide 2

Slide 2 text

ΠϯτϩμΫγϣϯ

Slide 3

Slide 3 text

ࣗݾ঺հ w ࿨ా༟հੜ w ܚጯٛक़େ੍ֶ࡞ϝσΟΞݚڀՊमྃ w גࣜձࣾϫσΟοτ୅දऔక໾ w גࣜձࣾΦϞϩΩऔక໾݉࠷ߴٕज़੹೚ऀ w IUUQZVTVLFCFDPNPS!ZVTVLFCF

Slide 4

Slide 4 text

ϝΠϯϫʔΫ

Slide 5

Slide 5 text

໰͍͔͚

Slide 6

Slide 6 text

1FSM͸େن໛8FCαʔϏε Ͱ࢖ΘΕ͍ͯΔ͕ ॳ৺ऀ͕8FCΞϓϦʹೖ໳͢Δࢿྉ͕গͳ͍ʁ

Slide 7

Slide 7 text

͋͑ͯڈ೥ΛৼΓฦΔ ʮ৽͍͠ʯΛੜΈग़ͨ͢Ίͷ8FCΞϓϦ։ൃͱͦͷपล

Slide 8

Slide 8 text

ԿΛͭ͘Δ͔͸෼͔ͬͨ ͦͷͨΊͷ ࣮૷ʹ͍ͭͯ ຊ೔ͷओ୊

Slide 9

Slide 9 text

ର৅ΦʔσΟΤϯε w 8FCΞϓϦέʔγϣϯΛͭ͘Γ͍ͨํ w ΞΠσΞ͸͋Δ͕࣮૷Ͱ͖ͳ͍ͬͯํ w ࠷ۙͷ8"'ʹ͍ͭͯ஌Γ͍ͨํ w 8FC"QQMJDBUJPO'SBNFXPSL8"' w .PKPMJDJPVTΛ࢖ͬͨ۩ମతͳΞϓϦߏ੒Λ ஌Γ͍ͨํ

Slide 10

Slide 10 text

ํ਑ ౰ͨΓલʹ࢖͍ͬͯΔ֓೦ɺ࣮૷ɺΩʔϫʔυ טΈࡅ͍ͯղઆ (PPHMF΍$1"/ͰݕࡧͰ͖ΔΑ͏ʹʂ ࣮͸͘͢͝पล͔Β͸෼͔Γʹ͍͘ʁ

Slide 11

Slide 11 text

ΞδΣϯμ w ྫ୊ɿ઎͍ΞϓϦʹ͍ͭͯ w 8FCΞϓϦέʔγϣϯͱ'SBNFXPSL w .PKPMJDJPVTͷ঺հ w .PKPMJDJPVT-JUFΛ࢖͏ w ΑΓ࣮ફతͳΞϓϦ΁ w $1"/Ϟδϡʔϧͱͷ૊Έ߹Θͤͱ޻෉ w ࠓޙ΁

Slide 12

Slide 12 text

ྫ୊ɿ઎͍ΞϓϦʹ͍ͭͯ

Slide 13

Slide 13 text

໊લʹԠͯ͡઎͍݁ՌΛग़͢ w ઎͍݁Ռ͸·ͣछྨ w ྑ͍ࣄ͕ى͜ΔͰ͠ΐ͏ w ग़ձ͍͕͋Δ͔΋ʁ w ෆ޾ʹͳΓ·͢ w ೖྗ͞Ε໊ͨલʹରͯ͠ඞͣಉ݁͡Ռ w ZVTVLFCFʮग़ձ͍͕͋Δ͔΋ʁʯ

Slide 14

Slide 14 text

ϋογϡؔ਺ my $name = "yusukebe"; my $max = 3; my $number = 0; # จࣈྻΛҰจࣈͣͭ෼ղ for my $char (split //, $name) { # จࣈʹରԠ͢Δ਺஋ΛಘΔ $number += ord $char; } # ૝ఆ͞ΕΔ࠷େ஋Ͱׂͬͨ༨ΓΛಘΔ my $result = $number % $max; print "$result\n"; จࣈྻ ਺஋ ݻఆ஋ͰׂΔ ༨Γ͕݁Ռ

Slide 15

Slide 15 text

εΫϦϓτͰ࣮ݱ͢Δ Α͏͸਍அϝ˓ΧʔΈ͍ͨͳʁ

Slide 16

Slide 16 text

8FCΞϓϦέʔγϣϯͱ'SBNFXPSL

Slide 17

Slide 17 text

8FCΞϓϦέʔγϣϯΛఆٛ͢Δ 8FC͕୭͔ͱಛ௃తͳ ΠϯλϥΫγϣϯ Λ͢Δ৔߹ 8FCΞϓϦέʔγϣϯ

Slide 18

Slide 18 text

8FCͷΠϯλϥΫγϣϯ 8FC ΞϓϦέʔγϣϯ Ϣʔβʔ ྫ͑͹ࣗ෼ͷ໊લΛ ೖྗ͢Δ ઎͍ͷ݁ՌΛݟΔ +4ͷಈ࡞ ֎෦ͷ8FC"1* ϛυϧ΢ΣΞFUD ϒϥ΢β ϓϩάϥϜ εϚϗΞϓϦ

Slide 19

Slide 19 text

8FC"QQMJDBUJPO'SBNFXPSL w ௨শ8"'ʢϫοϑʣ w ྫ͑͹3VCZPO3BJMT w 8FCΞϓϦέʔγϣϯΛͭ͘ΔͨΊͷ౔୆ w .7$Ϟσϧʹجͮ͘৔߹͕ଟ͍ .7$ͬͯͳΜͧʔʁ

Slide 20

Slide 20 text

.PEFM 7JFX $POUSPMMFS .7$ .7$Ͱ͋Δҙຯ͸ʁ

Slide 21

Slide 21 text

.7$Ҏલ

Slide 22

Slide 22 text

Կ͕Πέͯͳ͍ͬͯʁ w ৭ʑࠞͬͯ͡Δ w ϔομʔग़ྗ w ϩδοΫॲཧ w )5.-ͷඳը w ϑΝΠϧ͝ͱʹϧʔςΟϯά͢Δ w ॏෳ͕ى͜Δ ˎ$(*͸σϓϩΠํ๏ͷ ҰͭͳͷͰ$(*ࣗମ͕ ྑ͘ͳ͍Θ͚Ͱ͸ͳ͍

Slide 23

Slide 23 text

۪௚ʹ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 ""; print "$message"; print "";

Slide 24

Slide 24 text

)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 = $_[0] ?>

Slide 25

Slide 25 text

৑௕ʹͳΔ͕ ݟ௨͕͠Α͘ͳΔʂ ͞ΒʹςϯϓϨʔτΛϑΝΠϧʹ෼͚Δͱ ϝϯςφϯεੑɺ࠶ར༻ੑͷ޲্ ৑௕ੑ͸ϑϨʔϜϫʔΫ͕ٵऩͯ͘͠ΕΔʁ

Slide 26

Slide 26 text

ͱΓ͋͑ͣ.7$Ͱߟ͑Δҙຯ w ࠞࡏ͍ͯ͠Δݻ·ΓΛ໾ׂͰ෼͚Δ w ཧղΛ͢Ε͹৑௕ʹͳΔ͕։ൃޮ཰্͕͕Δ

Slide 27

Slide 27 text

෼͚Δͱ͸෼͔Δ͜ͱ

Slide 28

Slide 28 text

੾Γ෼͚ํ 3PVUFS $POUSPMMFS .PEFM-PHJD %#૚03.BQQFS 7JFX4UBUJDpMFT ϏδωεϩδοΫΛѻ͏ ग़ྗ΍ݟͨ໨ʹؔ͢Δ෦෼ ݸผͷϦΫΤετʹجͮ͘ॲཧ σʔλϕʔεʹ·ͭΘΔ 63-.&5)0%ʹԠͯ͡ৼΓ෼͚Δ

Slide 29

Slide 29 text

໾ׂΛ෼͚Δ͜ͱ ϑϨʔϜϫʔΫతࢥߟ΁

Slide 30

Slide 30 text

ॲཧͷྲྀΕ 3PVUFS $POUSPMMFS .PEFM-PHJD %#03.BQQFS 7JFX ϦΫΤετ σΟεύον Ϟσϧݺͼग़͠ %#ݺͼग़͠ %#݁Ռฦ٫ ݁Ռ ϨϯμϦϯά )5.-ͳͲ Ϩεϙϯε

Slide 31

Slide 31 text

1FSMͷ8"'ୡ w $BUBMZTU w %BODFS w "NPO w ,PTTZ w 1JDLMFT w 7PTPO w .PKPMJDJPVT w ࣗ࡞8"'

Slide 32

Slide 32 text

ࣗ࡞8"'ͱطଘ8"' w .7$ʁΛ࣮ݱ͢ΔϞδϡʔϧ͸ଗ͍ͬͯΔ w 1MBDL3FRVFTU w 3PVUFS4JNQMF w 5FYU9TMBUF w ͨͩΞϓϦΛॻ͖ͳ͕Β8"'΋͸Ωπ͍ w ษڧ༻ʹंྠͷ࠶ൃ໌͸ଟ͍ʹ׻ܴ w Ͱ΋ͱΓ͋͑ͣ8"'Λ࢖͍·͠ΐ͏Ͷ—

Slide 33

Slide 33 text

.PKPMJDJPVTͷ঺հ

Slide 34

Slide 34 text

.PKPMJDJPVT w ଐʹݴ͏ʮܰྔ8"'ʯͷҰछ w ࠷৽7FS͸ʮʯ೥݄೔࣌఺ w ࡞ऀ͸ʮ4FCBTUJBO3JFEFMʯࢯ

Slide 35

Slide 35 text

ಛ௃7$͚ͩαϙʔτ w 3PVUJOH$POUSPMMFS w σϑΥϧτͰ͸.PKP5FNQMBUFΛ࢖͏7JFX w ͷΈαϙʔτ͠ʮ.PEFMʯ͸ର৅֎ .PKP#BTFͦͷଞͰΫϥεͭͬͨ͘Γ03.BQQFS ࢖ͬͨΓͯࣗ͠ྗͰ࣮૷ͯ͠Ͷ͍̇ͬͯ͏ ٯʹͦΕ͕͍͍ .PEFM-PHJD૚͸8FC͔Β੾Γ཭͢΂͖

Slide 36

Slide 36 text

ಛ௃/PUGVMMTUBDLCVUGVMMTUBDL 3VCZPO3BJMT %#Λѻ͏·Ͱશͯ͜ΕҰͭͰग़དྷΔ ϑϧελοΫ .PKPMJDJPVT )551ͷ3FRVFTU΍6TFS"HFOU·Ͱ .PKPMJDJPVTͰ࢖͏ϥΠϒϥϦ͕શͯࣗ࡞ ϑϧελοΫ ίΞҎ֎ͷ$1"/Ϟδϡʔϧʹґଘ͠ͳ͍ʂ

Slide 37

Slide 37 text

No content

Slide 38

Slide 38 text

DQBON.PKPMJDJPVT

Slide 39

Slide 39 text

.PKPMJDJPVTͳΒҰൃ

Slide 40

Slide 40 text

ಛ௃ͦͷଞ w Ξοϓσʔτ͕සൟ $self->render_json( $ref ); # 4.00 Ͱഇࢭ # => $self->render( json => $ref ); ͨͩ͠ґଘ͕ແ͍ͷͰ.PKPMJDJPVT͚ͩ௥͍ͬͯΕ͹Α͍ w .PKPMJDJPVT-JUFΛ࢖͑͹ϑΝΠϧҰͭͰ w ޻෉͢Ε͹$(*Ͱ΋ಈ࡞Մೳ w 1FSMҎ্ඞਢɺҎ্Λਪ঑ w ։ൃ༻αʔόNPSCPɺຊ൪༻IZQOPUPBE w ΋ͪΖΜ14(*ޓ׵

Slide 41

Slide 41 text

খ͞ͳΞϓϦ͔Βେ͖ͳ8FCΞϓϦ·Ͱ ঃʑʹֶ΂ΔϑϨʔϜϫʔΫ .PKPMJDJPVT-JUF .PKPMJDJPVT $1"/Ϟδϡʔϧͷ૊Έ߹Θͤ

Slide 42

Slide 42 text

.PKPMJDJPVT-JUFΛ࢖͏

Slide 43

Slide 43 text

NPKPίϚϯυʹΑΔεέϧτϯ $ mojo generate lite_app myapp.pl .PKPMJDJPVT-JUF

Slide 44

Slide 44 text

͸͡Ίͯͷ.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

<%= $message %>

$POUSPMMFSʹ֘౰ 7JFXʢςϯϓϨʔτʣ 3PVUJOHͯ͠Δ

Slide 45

Slide 45 text

্ཱͪ͛ํ $ morbo -l "http://*:5000" myapp.pl NPSCPΛ࢖͏ $ plackup -p 5000 myapp.pl QMBDLVQͰ্ཱͪ͛Δ

Slide 46

Slide 46 text

)FMMP8PSME͔ΒֶͿ get '/' => sub {}; ϧʔςΟϯάͱίϯτϩʔϥ (&5IUUQMPDBMIPTU get '/entry/:id' => sub { my $entry_id = $self->stash->{id}; }; post '/entry' => sub {}; 1045IUUQMPDBMIPTUFOUSZ (&5IUUQMPDBMIPTUFOUSZ

Slide 47

Slide 47 text

)FMMP8PSME͔ΒֶͿ get '/' => sub { my $self = shift; $self->stash->{message} = 'Hello Mojo'; ...; } ςϯϓϨʔτʹσʔλΛ౉͢ $self->render('index'); # index.html.ep Λඳը ...;

<%= $message %>

ςϯϓϨʔτͷهड़ͱϨϯμʔ

Slide 48

Slide 48 text

΋ͪΖΜ઎͍ΞϓϦ΋ʂ

Slide 49

Slide 49 text

4IPSUMJWFDPEJOH

Slide 50

Slide 50 text

#!/usr/bin/env perl use Mojolicious::Lite; use utf8; ...; get '/' => sub { my $self = shift; $self->render('index'); }; ...; @@ index.html.ep

໊લΛೖྗ͍ͯͩ͘͠͞

τοϓϖʔδΛඳը

Slide 51

Slide 51 text

...; 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

<%= $name %>͞Μͷ݁Ռʮ<%= $message %>ʯ

݁ՌΛग़ྗ

Slide 52

Slide 52 text

$POUSPMMFS಺Ͱͷૢ࡞ w શͯ͸ʮTFMGʯͷϝιουΛѻ͏ my $value = $self->req->param('key'); $self->render('entry'); $self->render( json => { key => $value } ); .PKPMJDJPVT$POUSPMMFSΛܧঝ͢ΔͷͰͦͷυΩϡϝϯτΛಡΊ͹0,ʂ $self->redirect_to('/');

Slide 53

Slide 53 text

.PKP5FNQMBUFपΓ w 1FSMJTIUFNQMBUFT1FSMॻ͚Δʂ % for my $entry (@$entries) {

<%= $entry->{title} %>

% } .PKP5FNQMBUF.PKPMJDJPVT1MVHJO%FGBVMU)FMQFS w ςϯϓϨʔτ޲͚IFMQFS @@ index.html.ep % layout 'default'; Hi, <%= $name %> @@ layouts/default.html.ep <%= content %>

Slide 54

Slide 54 text

.PKPMJDJPVT-JUFΞϓϦΛ֦ு͢Δ w QVCMJD੩తϑΝΠϧΛஔ͘ w UFNQMBUFTςϯϓϨʔτϑΝΠϧΛಠཱ ./ !"" myapp.pl !"" public/ # !"" css/ # !"" favicon.ico # !"" images/ # %"" js/ %"" templates/ !"" layouts/ # %"" default.html.ep %"" root/ %"" index.html.ep

Slide 55

Slide 55 text

ΑΓ࣮ફతͳΞϓϦ΁

Slide 56

Slide 56 text

.PKPMJDJPVT-JUFͩͱϑΝΠϧ͕Ͱ͔͘ͳΔΑʔ ͦ͜Ͱ-JUF͡Όͳ͍.PKPMJDJPVTΞϓϦʂ ϞδϡʔϧΛ͍͍ײ͡ʹ෼͚ͯͭ͘ΕΔ

Slide 57

Slide 57 text

.PKPMJDJPVTΞϓϦΛͭ͘Δίπ w NPKPHFOFSBUFBQQ.Z"QQͰ͸ແ͘ .Z"QQ8FCΈ͍ͨͳωʔϜεϖʔεͰ NPKPHFOFBSBUFBQQ6SBOBJ8FC w ͳͥͳΒ6SBOBJ͕8FC૚͚ͩͰ͸ͳ͍͔΋ w 6SBOBJ.PEFM6SBOBJ-PHJD w 6SBOBJ$-*

Slide 58

Slide 58 text

͍͍ͩͨ͜Μͳߏ੒ ./ !"" Uranai/ # !"" DB/ # # %"" Schema.pm # !"" DB.pm # !"" Model/ # # %"" OneModel.pm # !"" Web/ # # %"" Controller/ # # %"" Root.pm # %"" Web.pm %"" Uranai.pm %#ϨΠϠʔ5FOHFUD ϏδωεϩδοΫ1FSM.PEVMF 8FCϨΠϠʔ ओʹ$POUSPMMFSͱϧʔςΟϯά 6SBOBJQNͰ͸ύεղܾͱઃఆϩʔυΛ࣮૷

Slide 59

Slide 59 text

-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

<%= $message %>

MJC6SBOBJ8FCQN MJC6SBOBJ8FC$POUSPMMFS .PKPMJDJPVT$POUSPMMFSΛܧঝ UFNQMBUFT .PKP5FNQMBUFʹ४ͣΔ

Slide 60

Slide 60 text

͢ΜͳΓҠߦग़དྷΔʂ

Slide 61

Slide 61 text

઎͍ΞϓϦΛ࣮૷ͯ͠ΈΔ

Slide 62

Slide 62 text

࣮૷ํ਑ w ઎͍ͷϩδοΫ෦෼Λ.PEFMͱͯ͠੾Γग़͢ w 6SBOBJ.PEFM6SBOBJ w ͦΕΛ$POUSPMMFS͔Βదٓݺͼग़͢ w 7JFX͸.PKPMJDJPVT-JUFͱಉ͡΋ͷΛ ผϑΝΠϧʹ͢Δ

Slide 63

Slide 63 text

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();

Slide 64

Slide 64 text

.PEFM͸$-*͔Β΋࢖͑Δ use Uranai::Model::Uranai; use feature 'say'; my $uranai = Uranai::Model::Uranai->new; say $uranai->uranau('yusukebe'); ͬͯ͜ͱ͸୯ମͰςετग़དྷΔʂ

Slide 65

Slide 65 text

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;

Slide 66

Slide 66 text

ΞϓϦΛͭ͘Δϑϩʔ w .PEFMΛॻ͘ w ςετ͢Δ w 3PVUJOH$POUSPMMFSΛॻ͘ w ςϯϓϨʔτΛॻ͘ w ςεταʔόΛىಈ͓ͯ͘͠ w ϒϥ΢βͰ֬ೝ w ܁Γฦ͠

Slide 67

Slide 67 text

$1"/Ϟδϡʔϧͱͷ૊Έ߹Θͤͱ޻෉

Slide 68

Slide 68 text

.PKPMJDJPVT͚ͩͰ͸଍Γͳ͍ w $1"/ϞδϡʔϧΛ૊Έ߹Θͤͯͭ͘Δ w -JLF-&(0CMPDLT .PKPMJDJPVT 03.BQQFS 'PSN7BMJEBUPS 'JMM*O'PSN FUD

Slide 69

Slide 69 text

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; } ...;

Slide 70

Slide 70 text

VTF5FOH w σʔλϕʔεΛૢ࡞͢Δ03.BQQFS w ͱͬͯ΋γϯϓϧ w $POUSPMMFS͔Β͸ૢ࡞ͤͣ.PEFM͔Β৮Δ my $teng = Teng::Schema::Loader->load( dbh => $dbh, namespace => 'Uranai::DB', ); my $row = $teng->insert(result => { text => '͋ͳͨ͸݁ࠗग़དྷ·ͤΜ', });

Slide 71

Slide 71 text

%#Λ༻͍ͨ઎͍ΞϓϦͷԠ༻ w ݻఆͩͬͨͭͷબ୒ࢶΛ૿΍ͤΔΑ͏ʹ͍ͨ͠

Slide 72

Slide 72 text

ͪͳΈʹ΍ͬͨ͜ͱ 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 ؆୯ͳςετॻ͍ͯ Ͱ͖ͨʂ

Slide 73

Slide 73 text

ͦͷଞ࣮ફͰ࢖ͬͯΔϞδϡʔϧ 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 4UBSNBO4UBSMFU w FUD 5IBOLTUPHSFBU.PEVMF"VUIPSTʂ

Slide 74

Slide 74 text

5JQT

Slide 75

Slide 75 text

%&-&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' );

Slide 76

Slide 76 text

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'); } }

Slide 77

Slide 77 text

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; }

Slide 78

Slide 78 text

.PKPMJDJPVTͷηογϣϯʹ͍ͭͯ w σϑΥϧτ͸ΫϥΠΞϯτʹΫοΩʔͱͯ͠อ࣋ w ؾʹೖΒͳ͍৔߹͸ w 1MBDL.JEEMFXBSF4FTTJPO w ࣗ࡞ηογϣϯ؅ཧ

Slide 79

Slide 79 text

ࠓޙ΁

Slide 80

Slide 80 text

঺հͨ͜͠ͱ w 8"'ͱ.7$తͳߏ੒ʹ͍ͭͯ w ໾ׂΛద੾ʹ෼͚Δ͜ͱͰεοΩϦͱ w ରԠ͢Δ.PKPMJDJPVTΛ࢖࣮ͬͨ૷ w ઎͍ΞϓϦΛྫʹ͋͛ͨ

Slide 81

Slide 81 text

8FCΞϓϦΛͭ͘Δʹ͸ʁ w ྫ͑͹ࠓճͷ઎͍ΞϓϦ w .PKPMJDJPVT-JUFͰ࣮૷ͯ͠ΈΔ w ग़དྷͨʂԶͬͯ͹εήʔମݧͦͷ w .PKPMJDJPVTΞϓϦͰ֦ுͯ͠ΈΔ w ग़དྷͨʂԶͬͯ͹εήʔମݧͦͷ w 5FOHΛֶश͠઎͍ͷύλʔϯΛ૿΍͢ w ग़དྷͨʂԶͬͯ͹εήʔମݧͦͷ

Slide 82

Slide 82 text

Զͬͯ͹εήʔମݧ গͣͭ͠ಈ͍ͯ෼͔Δ

Slide 83

Slide 83 text

ѻΘͳ͔ͬͨओͳ఺ w ΑΓποίΜͩ.PKPMJDJPVTͷ࢖͍ํ w ςετ5FTU.PSF5FTU.PKP w ੜʹ͍ۙ%#42-ૢ࡞ w ͦͷଞϛυϧ΢ΣΞNFNDBDIFE3FEJT w σϓϩΠαʔόߏ੒ΞϓϦαʔό w ύϑΥʔϚϯεܭଌɺνϡʔχϯά w 1FSMҎ֎ͷ͜ͱ+BWB4DSJQU$44)5.-

Slide 84

Slide 84 text

·ͱΊ

Slide 85

Slide 85 text

.PKPMJDJPVTͰ͸͡ΊΑ͏ w ബ͍8"'Ώ͑ཧղ͠΍͍͢ w .PKPMJDJPVT-JUFͷΑ͏ʹগͣͭͭ͘͠ΕΔ w ଞͷ8"'ʹ΋Ԡ༻ग़དྷΔ ঃʑʹֶ΂ΔϑϨʔϜϫʔΫ