takezoe/plugin/book/Code.pm

   1 ################################################################################
   2 #
   3 # <p>°ú¿ô¤ÎÆâÍÆ¤òcode¥¿¥°¤Ç°Ï¤ó¤Ç½ÐÎÏ¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{code Util::escapeHTML()}}¤ÇHTML¥¿¥°¤Î¥¨¥¹¥±¡¼¥×¤ò¹Ô¤¤¤Þ¤¹¡£
   6 # </pre>
   7 # <p>¾åµ¤Î¾ì¹ç¡¢½ÐÎÏ¤µ¤ì¤ëHTML¤Ï°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£</p>
   8 # <pre>
   9 # &lt;code&gt;Util::escapeHTML()&lt;/code&gt;¤ÇHTML¥¿¥°¤Î¥¨¥¹¥±¡¼¥×¤ò¹Ô¤¤¤Þ¤¹¡£
  10 # </pre>
  11 #
  12 ################################################################################
  13 package plugin::book::Code;
  14 #==============================================================================
  15 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  16 #==============================================================================
  17 sub new {
  18         my $class = shift;
  19         my $self = {};
  20         return bless $self,$class;
  21 }
  22
  23 #==============================================================================
  24 # ¥¤¥ó¥é¥¤¥ó¥á¥½¥Ã¥É
  25 #==============================================================================
  26 sub inline {
  27         my $self = shift;
  28         my $wiki = shift;
  29         my $text = shift;
  30
  31         return '<code>'.Util::escapeHTML($text).'</code>';
  32 }
  33
  34 1;