| Catalyst :: Plugin :: Message. CATALYST :: PLUGIN :: MESSAGE´Â ÈǸ¢ÇÑ »õ·Î¿î Catalyst :: Plugin :: Message¸¦ Æ÷ÇÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù! |
Áö±Ý ´Ù¿î·Îµå |
Catalyst :: Plugin :: Message. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~chunzi/Catalyst-Plugin-Message-0.03/lib/Catalyst/Plugin/Message.pm
Catalyst :: Plugin :: Message. ű×
Catalyst :: Plugin :: Message. ¼³¸í
catalyst :: plugin :: message´Â »õ·Î¿î atalyst :: plugin :: message¸¦ Æ÷ÇÔÇÏ´Â perl ¸ðµâÀÔ´Ï´Ù! Catalyst :: Plugin :: Message´Â ÈǸ¢ÇÑ »õ·Î¿î Ã˸Š¸Þ½ÃÁö Ç÷¯±×ÀÎÀ» Æ÷ÇÔÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù! ÄÁÆ®·Ñ·¯¿¡¼ °³¿ä # Ã˸ŠQW / Message /; ÇÏÀ§ ·¹Áö½ºÅÍ : ·ÎÄà {My ($ self, $ c) = @_; if ($ c-> req-> ¸Þ¼Òµå Eq 'post') {my $ Email = $ c-> req-> param ( 'À̸ÞÀÏ'); $ c-> errmsg (À̸ÞÀÏ => 'À̸ÞÀÏÀÌ ºñ¾î ÀÖÁö ¾Ê½À´Ï´Ù.). $ C-> ERRMSG (À̸ÞÀÏ => 'À̸ÞÀÏ À¯È¿ÇÏÁö ¾ÊÀº) $ EMAIL = ~ / @ /; if ($ c-> errmsg) {# ÀúÀå µ¥ÀÌÅÍ}} $ C-> stash -> { 'ÅÛÇø´'} = 'register.tpl'; } # register.tpl ¿ä±¸ »çÇ× : ¡¤ Perl.
Catalyst :: Plugin :: Message. °ü·Ã ¼ÒÇÁÆ®¿þ¾î