-###############################################################################\r
-#\r
-# ¥¡¼¥ï¡¼¥É¤Î¥¥ã¥Ã¥·¥å¤òºîÀ®¡¦¹¹¿·¤¹¤ë¤¿¤á¤Î¥Õ¥Ã¥¯\r
-#\r
-###############################################################################\r
-package plugin::core::KeywordCache;\r
-use strict;\r
-use Wiki::Keyword;\r
-use Wiki::InterWiki;\r
-\r
-#==============================================================================\r
-# ¥³¥ó¥¹¥È¥é¥¯¥¿\r
-#==============================================================================\r
-sub new {\r
- my $class = shift;\r
- my $self = {};\r
- return bless $self,$class;\r
-}\r
-\r
-#===========================================================\r
-# ¥Ú¡¼¥¸Êݸ¸åorºï½ü¸å¤Î¥Õ¥Ã¥¯¥á¥½¥Ã¥É\r
-#===========================================================\r
-sub hook {\r
- my $self = shift;\r
- my $wiki = shift;\r
- \r
- my $interwiki = Wiki::InterWiki->new($wiki);\r
- my $keyword = Wiki::Keyword->new($wiki,$interwiki);\r
- \r
- $keyword->parse();\r
- $keyword->save_keywords();\r
-}\r
-\r
+###############################################################################
+#
+# ¥¡¼¥ï¡¼¥É¤Î¥¥ã¥Ã¥·¥å¤òºîÀ®¡¦¹¹¿·¤¹¤ë¤¿¤á¤Î¥Õ¥Ã¥¯
+#
+###############################################################################
+package plugin::core::KeywordCache;
+use strict;
+use Wiki::Keyword;
+use Wiki::InterWiki;
+
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+ my $class = shift;
+ my $self = {};
+ return bless $self,$class;
+}
+
+#===========================================================
+# ¥Ú¡¼¥¸Êݸ¸åorºï½ü¸å¤Î¥Õ¥Ã¥¯¥á¥½¥Ã¥É
+#===========================================================
+sub hook {
+ my $self = shift;
+ my $wiki = shift;
+
+ my $interwiki = Wiki::InterWiki->new($wiki);
+ my $keyword = Wiki::Keyword->new($wiki,$interwiki);
+
+ $keyword->parse();
+ $keyword->save_keywords();
+}
+
1;
\ No newline at end of file