plugin/info/PageName.pm

   1 ####################################################################
   2 #
   3 # <p>É½¼¨Ãæ¤Î¥Ú¡¼¥¸¤Î¥Ú¡¼¥¸Ì¾¤òÉ½¼¨¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # ¥Ú¡¼¥¸Ì¾¡§{{pagename}}
   6 # </pre>
   7 #
   8 ####################################################################
   9 package plugin::info::PageName;
  10 use strict;
  11
  12 #==================================================================
  13 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  14 #==================================================================
  15 sub new {
  16     my $class = shift;
  17     my $self = {};
  18     return bless $self,$class;
  19 }
  20
  21 #==================================================================
  22 # ¥¤¥ó¥é¥¤¥ó¥á¥½¥Ã¥É
  23 #==================================================================
  24 sub inline {
  25         my $self = shift;
  26         my $wiki = shift;
  27         return $wiki->get_CGI()->param('page');
  28 }
  29
  30 1;